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IDENTIFICATION 
PRODUCT NAME:  CNDRDAO DRV11J DIAG TST PRT2 
PRODUCT CODE:  AC=T44SA=MC 
PRODUCT DATE: DECEMBER, 1982 
MAINTAINER: DIAGNOSTICS SERVICES/ISS 


AUTHOR : W.HEAVEY 


COPYRIGHT (C) 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
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DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH TERMS OF SUCH LICENSE. 


GITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
LIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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CNDRDA.P11 10=DEC=82 14:44 SEQ 0002 
5685 “GPA HEADER “/CNDRDA DRV11N pias TST PRT2 /,1982,*/BILL HEAVEY/ 
5686 “TITLE CNDRDA DRV11J DIAG TST PRT2 

(1) :*COPYRIGHT (C) 1 

(1) ;*DIGITAL EQUIPMENT | RP. 

(1) ; *MAYNARD, MASS. 0 

(1) ; PROGRAM BY BILL HEAVEY 

(1) ieTHIS PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC 

(1) 3 *PACKAGE (MAINDEC=11=DZQAC=C3), JAN 19, 1977. 

(1) 000001 diner 

(1) 160000 $SWR=160000 HALT oN ERROR. LOOP ON TEST, INHIBIT ERROR TYPOUT 
5687 :* EDITED TO PERMIT DRV'S TD RUN ON FALCON (KXT11) 7:GPA 
2688 3¢ G. PASQUANTONIO, JULY ‘817 GPA 
5690 165400 éswr=165400 
5691 000001 $TN=1 
5692 .SBTTL OPERATIONAL SWITCH SETTINGS 

;* 

(1) j* SWITCH USE 

( 1 * 3 a em oe SSDS DOOD HS SSH SS Ss Sw 

(1) te 15 HALT ON ERROR 

(1) jt 14 LOOP ON TEST 

(1) 3* 13 INHIBIT ERROR TYPEOUTS 

(1) 3* 11 INHIBIT ITERATIONS 

(1) * 9 LOOP ON ERROR 

(1) it 8 LOOP ON TEST IN SWR<7:0> 
5693 “SBTTL BASIC DEFINITIONS 

(1) s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 #e 

(1) 001100 STACK= 1100 

(1) .EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 

1} .EQUIV I0T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 

(1) ; sMISCELLANEOUS DEFINITIONS 

(1) 000011 T= 11 ::CODE FOR HOR! ZONTAL TAB 

(1) 000012 LF= 12 :3CODE FOR LINE FEED 

(1) 000015 CR= 15 33 CODE FOR CARRIAGE RETURN 

(1) 000200 CRLF= 200 ;CODE FOR CARRIAGE yRETURN=L INE FEED 

(1) 177776 PS= 177776 + SBROCESSOR STATUS WORD 

(1) .EQUIV PS,PSW 

(1) 177774 STKLMT= 177774 zrSTACK LIMIT REGISTER 

(1) 177772 PIRQ= 177772 S:PROGRAM INTERRUPT REQUEST REGISTER 

(1) 177570 DSWR= 177570 : ; HARDWARE SWITCH REGISTER 

(1) 177570 DDISP= 177570 RDWARE DISPLAY REGISTER 

(1) Sesas THE FOLLOWING ODT’ START ADDRESS FOR SBC 11/21 IS ADDED 

(1) 170000 op 17 

(1) OCENERAL PURPOSE REGISTER DEF INITIONS 

(1) 000000 RO= 20 ;GENERAL REGISTER 

(1) 000001 Ri= 21 + OENERAL REGISTER 

(1) 000008 R2= x2 t:GENERAL REGISTER 

(1) 00000 R3= z 7:GENERAL REGISTER 

(1) 000004 R4= 14 ::GENERAL REGISTER 

(1) 000005 R5= 25 + :GENERAL REGISTER 

(1) 000006 R6= %6 t:GENERAL REGISTER 
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RDA.P11 —- 10=DEC=82 14:44 BASIC DEFINITIONS 
| (1) 000007 R7= 47 t:GENERAL REGISTER 
| 4) 000006 SP= 6 S:STACK POINTER 

(1) 000007 PC= 7 S:PROGRAM COUNTER 

(1) :*PRIORITY LEVEL DEFINITIONS 

(1) 000000 PRO= sO :;PRIORITY LEVEL 0 

(1) 000040 PRi=z= 40 ::PRIORITY LEVEL 1 

(1) 000100 PR2= 100 ::PRIORITY LEVEL : 

(1) 000140 PR3=  —- 140 :PRIORITY LEVEL 

(1) 000200 PR4= 00 ssPRIORITY LEVEL 4 

(1) 000240 PR5= 40 ::PRIORITY LEVEL 5 

(1) 300 PR6= 00 ::PRIORITY LEVEL 6 

(1) 000340 PR7= 340 ::PRIORITY LEVEL 7 

(1) :*'"SWITCH REGISTER’ SWITCH DEFINITIONS 

(1) 100000 $w15= 

(1) 040000 Sw14= 40000 

(1) 020000 Sw13= 20000 

(1) 010000 SWi2= 10 

(1) 000 Swi1= 4000 

(1) 002000 Sw10= 2000 

(1) 001000 SwO9= 1000 

(1) 000400 SwOB= 400 

(1) 000200 SwO7= 200 

(1) 000100 $w06= 100 

(1) 0 sw05= 4 

(1) 000020 Sw04= 20 

(1) 000010 swO3= 10 

(1) 000004 SWwO2= 4 

(1) 000002 SWwOl= 2 

(1) 000001 wo0= 1 

(1) -EQUIV Sw09, 

(1) SEQUIV SWO8.SW8 

(1) “EQUIV SWO7.SW7 

(1) “EQUIV SW06, 

(1) eEQUIV Sw05,SW5 

(1) “EQUIV SWO04, 

(1) eEQUIV Sw03,SW3 

(1) “EQUIV SwWO2,SW2 

(1) “EQUIV $wWO1.SW1 

(1) “EQUIV $wWO00.SWO 

(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 

(1) 1 BIT15= 100000 

(1) 040000 BIT14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) 000 BIT11= 4000 

(1) 002000 BIT10= 2000 

(1) 001000 BIT09= 1000 

(1) 000400 BITO8= 400 

(1) 000200 BITO7= 200 

(1) 000100 BIT06= 100 

(1) 000040 BITOS= 40 

(1) 000020 BIT04= 20 

(1) 000010 BIT03= 10 


SEQ 0003 
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CNDRDA DRV11J DIAG TST PRT? MACY11 30(1046) 
CNDRDA.P11 -:10=DEC=82 1 BASIC DEFINITIONS SEQ 0004 
(1) 000004 BITO2= 4 
(1) 000002 BITO1= é 
(1) 000001 BITO0= 
(1) sEQUIV BIT09,B1T9 
(1) -EQUIV BITO8,B1T8 
(1) -EQUIV 81T07,B1T7 
(1) -EQUIV 81T06.B116 
(1) -EQUIV BITOS,BITS 
(1) -EQUIV BIT04,B1T4 
(1) -EQUIV BITO3,B81T3 
(1) “EQUIV B1T02,B1T2 
(1) “EQUIV B1T01,B1T1 
(1) “EQUIV B1T00,BITO 
(1) ;*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 
a1) 000004 ERRVEC= 4 OUT AND OTHER ERRORS 
(1) 000010 RESVEC= to : [RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 :"T BIT 
(1) 000014 TRIVEC= 14 S:TRACE TRAP 
(1) 000014 BPTVEC= 14 : SBREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= 20 SINPUT/OUTPUT TRAP (IOT) **SCOPE** 
(1) 000024 PWRVEC= 24 : R FAIL 
(1) 000030 EMTVEC= 30 $ SEMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVE C=34 :"TRAP’’ TRAP 
(1) 000060 TKVEC= 60 i TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 TTY PRINTER VECT 
(1) pteeee THE FOLLOWING BREAK VECTOR AND Cine CLOCK VECTOR ARE INCLUDED 
(1) 000100 ikVEC= sLINE Lock VECTOR 
(1) 000140 BRKVEC= 14 3 FBREAK VECTOR 
(1) 000240 PIRQVEC=240 “PR ROGRAM INTERRUPT REQUEST VECTOR 
5694 174160 ABASE= 174160 {BASE A 
5695 000001 ADEVM= 1 ‘BEAUTY. TO ONE DRV11J 
5696 100000 RDY=  ®BI1T15 
5697 000400 DIR=  BIT8 
3698 001000 1E= BITS 
5700 zCHIP COMMAND SUMMARY 
IRMR= 20 :CLEAR IRR AND IMR 
0 [CLEAR SINGLE IRR AND IMR BIT 
40 ZCLEAR IMR 
50 [CLEAR SINGLE IMR BIT 
60 [SET ALL IMR BITS 
70 7SET SINGLE IMR BITS 
100 ZCLEAR IRR 
110 [CLEAR SINGLE IRR BITS 
120 [SET ALL I 
130 TSET SINGLE IRR BITS 
140 SCLEAR HIGHEST PRIORITY ISR BIT 
160 [CLEAR I 
170 [CLEAR SINGLE ISR BIT 
00 ZLOAD MODE BITS MO-M4 


Mon 
r~ 
oO 


;LOAD MODE BITS M5-M7 





| CN 
[CNDRDA.P11» 10=DEC=82 14:44 
| §720 
| 8754 
5728 0024 
$75 000944 
375% 000550 
5755 000254 
5756 
$757 
3758 000300 
5729 000260 
37 000340 
373} 
$732 
(1) 
a) 000000 
(1) 
(1) 
(1) 
(1) 000174 
(1) 00017 000000 
(1) 000176 000000 
(1) 000200 000137 002476 
5733 0001 
5784 000100 000104 000200 000002 
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BASIC DEFINITIONS 


CHIP 
MISR= 0 
MIMR= 264 
MIRR= 320 
MACR= 254 
CHIP WRITE PRESELECTION 
PACR= 30 ;PRESELECT AUTO CLEAR REG. FOR WRITING 
PIMR= 36 SPRESELECT IMR REG. FOR WRITING 
PVMA= 0 :PRESELECT VECTOR MEMORY ADDRESS 


-SBTTL TRAP CATCHER 


-=0 
3*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+#2,HALT"’ 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
sALSCAT IGN © CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


= 
DISPREG: .WORD 0 3 ;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 3SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 

JMP @#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 

= 


00 
WORD 104,200,2 :IF °B EVENT’ ON Q BUS IS CONNECTED 
IGNORE IT'S INTERRUPT = JUST DO A RTI 


SEQ 0005 


c- 


G6 1 
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ACT11 HOOKS 


[CNDRDA.P11 10=DEC=82 14244 SEQ 0006 
| S73? -SBTTL ACT11 HOOKS 
j (2) FARRAR AAA ERAE EEE EE REE EERE EREEEEAEREEEREREREEREEE 
(1) ‘HOOKS REQUIRED BY ACT11 
(1) 000106 $SVPC:. SAVE. PC 
(1) 000046 246 : 
(1) 000046 O10712 SENDAD 3:7)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
(1) 000052 000000 “wORD 0 j32)SET LOC. 52 TO ZERO 
(1) 000106 -=$SVPC t: RESTORE P 
5738 002000 -=2000 
5739 sLONGEST TEST TIME 
5740 71ST PASS RUN TIME 
5741 SADDITIONAL RUN TIME 
5742 .SBTTL APT PARAMETER BLOCK 


(2) 

(1) 

(2) 

(1) 002000 - $X=. 
(1) 000024 2=2 

(1) 000024 000200 200 

(1) 000044 

(1) 000044 002000 SAPTHOR 
(1) 002 

(2) 

(1) 

33 INTERFACE SPEC. 
(1) 002000 SAPTHD: 

(1) 002000 000000 SHIBTS: .WORD 
(1) 002002 002170 SMBADR: .WORD 
(1) 2 000014 TM: WORD 
(1) 000036 SPASTM: .WORD 
(1) 002010 000036 SUNITM: .WORD 
(1) 002012 000031 . 


fF RRRAAAAAERAAAAAEEEEEAAE EAE AAAEEAAREREEKEEREEEEEEEEEEEEAEERERERE 


Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FERRARA AEAAAEAEEEEREE AEE EEE EE AAEREREEEEREREREREEEEEREREREEEEE 


23 SAVE ere} LOCATION 
T POWER FAIL TO POINT TO START OF PROGRAM 
3IFOR APT START 


4s tt TO APT INDIRECT ADDRESS PNTR. 
3;POINT TO APT HEADER BLOCK 
3;RESET LOCATION COUNTER 


Peeeeeneteneeeeeeertecereerereeeeeeeeeeeeeeeeeeneeneeeeeeeeete 


:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMAIL  EADDRESS OF APT MAILBOX (BITS 0-15) 
12. 3;RUN TIM OF LONGEST TEST 
23 RUN Tosa IN oes OF 1ST PASS - 1 UNIT (QUICK VERIFY) 
30. zADDIT L RUN TIME (SECS) OF A + a FOR EACH ADDITIONAL UNIT 
SETEND-SHAIL/2 PSLENGTH MAILBOX~E TABLE (WORDS 


"Semi aA ae 
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JENDRDA.PTT = 10=DEC=82 14244... AGS SEQ 0007 


~ .SBTTL COMMON TAGS 


wi 
~ 
- 
Ww 


FF RRA AAAA EAA A EAE EE EEE EEE EEE EAA RAAAAEEEAAEEEEEEEREREREAHAES 


3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS - 


7*USED IN THE PROGRAM. 


002100 -=2100 
SCMTAG: 33START OF COMMON TAGS 


hd 3 allege iL. 4 oh th NUMBER 
33 CONTAINS LAG 
3: CONTAINS SUBTEST ITERATION COUNT 


3 TAINS TOTAL ERRORS DETECTED 
: CONTAINS ITEM CONTROL BYTE 


00 001 SERMAX: .BYTE TAINS MAX. ERRORS PER TEST 
00 SERRPC: . 3;CONTAINS PC OF LAST ERROR INSTRUCTION 
00 CONTAINS ADDRESS OF ‘GOOD’ DAT 
::CONTAINS ADDRESS OF *BAD' DATA. 
CONTAINS "GOOD" DATA 
S:CONTAINS BAD’ DATA 
WORD ;:RESERVED=-NOT TO BE USED 
002134 000 $AUTOB: .BYTE ; AUTOMATIC MODE INDICATOR 
002135 000 SINTAG: .BYTE INTERRUPT MODE INDICATOR 
002140 177570 SWR:  .WORD DSWR ssADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP :ZADDRESS OF DISPLAY REGISTER 
002144 177560 $TkS: 177560 3:TTY KBD STATUS 
002146 177562 $TkB: 177562 i: TTY KBD BUFFER 
002150 177564 $TPS: 177564 {TTY PRINTER STATUS REG. ADDRESS 
002152 177566 $TPB: 177566 TTY PRINTER BUFFER REG. ADDRESS 
002154 000 $NULL: .BYTE 0 TECONTAINS NULL CHARACTER FOR FILLS 
002155 002 SFILLS: .BYTE 2 
{CONTAINS # OF FILLER CHARACTERS REQUIRED 
002156 012 sriuic: .evte 18 :INSERT FILL CHARS. AFTER A “LINE FEED" 
002157 000 STPFLG: .BYTE 0 "TERMINAL AVAILABLE © FLAG (BIT<07>=0=VES) 
002160 000000 STIMES: 0 3:MAX. NUMBER OF ITERATIONS 
002162 000000 SESCAPE :0 33ESCAPE ON ERROR ADDRESS 
0021 077 $QUES: .ASCII /2/ QUESTION MARK 
002165 015 SCRLF: ASCII <15> 2: CARRIAGE RETURN 
2166 000012 SLF ~ASCIZ <12> :LINE FEED 


js Peeeereceeeteneeeeeeeeeeeeeeeereceeenenereereeeeereeereneeetees 


* SBTTL APT MAILBOX-E TABLE 
; PLUteeeeeeaeeneeedeeeeeneeeeeedeeeakeeeeeeeeeeeneeeeeeeeneeterter 
002170 SMAIL: 3:;APT MAILBOX 


WORD AMSGTY ;;MESSAGE TYPE CODE 
WORD AFATAL ssFOte L_ ERROR NUMBER 


AUNIT ;;1/0 UNIT NUMBER 
WORD AMSGAD ;;MESSAGE ADDRESS 


' 
Fo» an am ap Yan ham ha hap eae he a an ha ham he en a ce en a a a a a a he a, ce tc a te a a a a a a a a ae ae ae a a a aa aaa ee eae 
ROPIPOAPOPONPININYD NRONOAY ad ad rt rt et rt rk kt kd td sd at ht ot ot o_o ot o_o ot ot oo at ot ot tt ef 
er er a er er ee ee ee ee ee ee ee ee Se ee ewe 

MIMIPOPONY 
rs —— 
& WWhon 
OSeR 
-_ oO 
38 8 
~“ 
w 
sassse 
So 
$3 bad 
Q@ma 
oocog 
oo,r> 
>Pruog’o 
44 DD 
ee . 
| «eee ese 
SSSss 
ovQGVTrVTso 
iw hw fo jeolololeloleoloelolos felelojleololololo) 


em i eee SC - _ 


cc a a a i ee —— - 


te 
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CNDRDA.P11 10=DEC=82 1 T MAILBOX-E TABLE SEQ 0008 


000000 SMSGLG: .WORD AMSGLG § Hyd ye LENGTH 

002210 SETABLE: T ENVIRONMENT TABLE 
000 SENV: .BYTE AENV ENVIRONMENT BYTE 

000 SENVM: .BYTE AENVM 

ENVIRONMENT MODE BITS 


nm 
m 
~ 
o 
oO 
™m 
mM 
e | 


| 
| 
i 
| 
| 


| 2 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
002 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 
002 000000 $CPUOP: .WORD ACPUOP ger sri eeu ee 
3* - s 
3* 1/04 04=01, 1i/05=02 =02, 211/20 =03,11/40=04,11/45=05 
3* oP Q=1 
3* , BIT 1O=REAL " ME CLOCK 
3* BIT 9=FLOATING POINT PROCESSOR 
te BIT 8=MEMORY MANAGEMENT 
002220 000 $MAMS1: .BYTE AMAMS1 z:HIGH ADDRESS,M.S. BYTE 
002221 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLK#1 
3* hem. TYPE BY Vie -- (HIGH BYTE) 
3* 900 NSEC CORE=001 
3* 300 NSEC Bi POLAR~002 
zt EC Mos= 003 


i 500 NS 
$MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLK 
fe MEM.LAST ADDR. uf BYTES. THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
002224 000 $MAMS2: .BYTE AMAMS2 :sHIGH ADDRESS -M .S. BYTE 
002225 000 SMTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLK 
002226 000000 SMADR?: .WORD AMADRG z3MER LAST ADDRESS .BLKA2 
002230 000 SMAMS3: .BYTE AMAMS3 ::HIGH ADDRESS,M.S.BYTE 
002231 000 SMTYP3: .SYTE AMTYP3 : ime. TYPE ,BLKA 
002232 000000 SMADR3: .WORD AMADR3 ::MEM sLAST ADDRESS, BL KAS 
0022 000 SMAMS4: .BYTE AMAMS4 ;:HIGH ADDRESS,M.S.BYT 
002235 000 SMTYP4: .BYTE AMTYP4 CREM TYPES BLK&G 
002236 000000 SMADR4: .WORD AMADR4 3 ;MEM.LAST ADDRESS .BLK#4 
002240 000000 SVECT1: .WORD AVECT1 :: INTERRUPT VECTOR#1,BUS PRIORITYA#1 
900000 SvECTe: +S INTERRUPT VECTOR#2BUS PRIORITY#2 


-WORD ABASE 
[BASE ADDRESS OF EQUIPMENT UNDER TEST 

002246 000001 SDEVM: .WORD ADEV Vv 

902250 000000 $CDWi: <.WORD ACDw1 SI CONTROLLER DESCRIPTION WORDA1 

«MEXIT = 


SS SS YU ea 
Nm ~m 
Nm ~m 
& ™~m 
™ ~m 

So 
So 
So 
3 
nn 
< 
Mm 
o 
~ 
Nm 
ee 
L—] 
bP 
<= 
m 
o 
“4 
Y 


RRR ARR RAR AAA RA ARR ARAAAA AAR AAA RRA AAA AA 
POPININPINPINONYNDNGNDNYNDNGNYGNINININNNNNNPNPonony fonononofnonofonefnonn 
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5745 
57 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH een F CAN ee 


3*THE INFORMATION IS OBTAINED BY USING THE INDEX N 
S*LOCATION SIT7EMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
3*NOTE: IF SITEMB IS 0 THE ONLY PERTINENT DATA_IS (SERRPC). 
3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3* EM :,POINTS TO THE ary MESSAGE 
3* DH ats tt TS TO THE DATA HEADER 
7* DT POINTS TO THE DATA 
s@ DF :;POINTS TO THE DATA FORMAT 
SERRTB: 
sERROR 1 
EM1 :REG ge 3 ER 
DH1 SERRPC TNUM BUSADR EXPCT RCVD 
* SERRPC TSTNUM $BDADR $GDDAT $B8DDAT 
3ERROR 


2 

EM2 REG READ/WRITE ER 

DH2 sERRPC TSTNUM BUSADR VAM ADDR EXPCT RCVD 
ars sSERRPC TSTNUM $BDADR VECVAL VECLOC $GDDAT $B8DDAT 


sERROR 3 

EM3 sIRR REG ER 

DH2 sERRPC TSTNUM BUSADR VAM ADDR EXPCT  RCVD 

Bre sSERRPC TSTNUM SBDADR VECVAL VECLOC S$GDDAT S$B8DDAT 
sERROR 4 . 

EMG sACR REG ER 

DH2 sERRPC TSTNUM BUSADR VAM ADDR EXPCT  RCVD 

s*¢ sSERRPC TSTNUM SBDADR VECVAL VECLOC S$GDDAT S$B8DDAT 
sERROR 5 

EMS 7 IMR REG ERROR 

DH2 SERRPC TSTNUM BUSADR VAM ADDR EXPCT RCVD 

pte  SERRPC TSTNUM $BDADR VECVAL VECLOC S$GDDAT S$BDDAT 
sERROR 6 

EM6 sISR REG ERROR 

DH2 SERRPC TSTNUM BUSADR VAM ADDR EXPCT RCVD 

ate s SERRPC TSTNUM $BDADR VECVAL VECLOC S$GDDAT S$8DDAT 
ERROR 7 

EM14 VECTOR ADDR MEM ER 

DH1 TERR PC TSTNUM BUSADR EXPCT 


RCVD 
_ 7SERRPC TSTNUM $BDADR $GDDAT $BDDAT 


SEQ 0009 


/CNDRDA DRVI1J DIAG TST PRT2 
10=DEC=82 14:44 


CNDRDA.P11 
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ERROR POINTER TABLE 


s ERROR 


;ERROR 


:ERROR 


sERROR 


zERROR 


10 

EM10 sCHIP STAT ER 

DH2 sERRPC TSTNUM BUSADR VAM ADDR EXPCT RCVD 
.* sSERRPC TSTNUM SBDADR VECVAL VECLOC $GDDAT $B8DDAT 
11 

EM11 7 ILLEGAL_INTERRUPT ~ ghey 

DH3 ZERRPC TSTNUM BUSADR ADDR 

-* SSERRPC TSTNUM $BDADR VECVAL VECLOC 

12 

EM12 s INTERRUPT TEST ERROR 

DH2 ZERRPC TSTNUM BUSADR ADDR EXPCT RCVD 
‘te 7SERRPC TSTNUM $BDADR VECVAL VECLOC $GDDAT $BDDAT 
13 sMULTIPLE INTERRUPTS RECEIVED 

EM13 ;MULTIPLE INTERRUPTS RECEIVED 

DH2 sERRPC TSTNUM BUSADR VAM ADDR EXPCT RCVD 
.¢ 3SERRPC TSTNUM $BDADR VECVAL VECLOC $GDDAT $BDDAT 
14 

EM? s ILLEGAL VECTOR ADDR MEM ERROR 

DH4 SERRPC TSTNUM TESTPC BUSADR VAM ADDR 

_ SSERRPC TSTNUM $GDADR $BDADR VECVAL VECLOC 


: BUS REGISTER ADDRESS POINTERS 


VECLOC: 


ABASE+16 


PROGRAM LOCATION(S) 


: ? CONTAINS TEST NUMBER ON ERROR 

«WORD QO 
-WORD 0 
«WORD 5 
» WORD 

«WORD 0 
WORD 0 
-WORD 0 


SEQ 0010 


a 


Lj 
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[CNDRDA DRVITY DI 

CNDRDA.P11  10-DEC=82 1 ERROR POINTER TABLE SEQ 0011 

| 5841 002454 000000 VECPAT: .WORD 0 
5842 002456 000000 VECVAL: :WORD 0 

| 5823 60 000000 SWRSAV: .WORD 0 
5844 002462 000000 GRPCNT: . 0 
5845 002464 000000 BDSAV:  :WORD 0 
5846 002466 000000 LVLCNT: :WORD 0 
5847 002470 000000 BYCNT: WORD 0 
848 002472 000000 BYNUM: :WORD 0 
5849 002474 000000 LVLSAV: :WORD 0 
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CNDRDA.P11 10=DEC=82 1 PROGRAM START SEQ 0012 


~SBTTL PROGRAM START , 


uw 
co 
vw 
im 


| 
| 
| §853 002476 START: 
; @ .SBTTL INITIALIZE THE COMMON TAGS 
Lo ae :zCLEAR THE COMMON TAGS ($CMTAG) AREA 
(1) 002476 012706 002100 MOV ASCMTAG,R6 3sFIRST LOCATION TO BE CLEARED 
(1) 002502 005026 CLR (R6)+ ::CLEAR MEMORY LOCATION 
(1) 002504 022706 002140 CMP #SWR,R6 ;;DONE? © 
(1) 002510 001374 BNE --6 3;LOOP BACK IF NO 
(1) 2512 012706 002100 #2100,SP 3:SETUP THE STACK POINTER 
(1) s INITIALIZE A FEW VECTORS 
(1) 002516 012737 014342 000020 #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(1) 002524 012737 000300 000022 MOV #PR6,AMIOTVEC+2 s:LEVEL 6 
(1) 002532 012737 014014 000030 MOV #SERROR, AFEMTVEC ceEMT VECTOR FOR ERROR ROUTINE 
(i) 002540 012737 000300 000032 arves MOV #PR6,AMEMTVEC+2 s:LEVEL 6 7" 
(1) 002546 012737 015602 000034 MOV #STRAP ,A#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
(1) 002554 012737 000300 000036 MOV #PR6, a#TRAPVEC+2;LEVEL 
(1) 002562 012737 015376 000024 MOV #SPWRDN, AFPWRVEC :POwER FAILURE VECTOR 
(1) 002570 012737 000300 000026 MOV #PR6 a#PWRVEC+2 s:LEVEL 6 
(1) 002576 005037 002160 CLR STIMES 5 TT TTACIZE NUMBER OF ITERATIONS 
(1) 002602 005037 002162 CLR SESCAPE 3:CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 002606 112737 000001 002115 MOVB #1,$ERMAX :zALLOW ONE ERROR PER TEST 
(1) 002614 012737 002614 002106 MOV #.,$LPADR ss INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 002622 012737 002622 002110 MOV #.,$LPERR TUP THE ERROR LOOP ADDRESS 
(2) ::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT DO 
(2) t:EQUAL TO A ‘'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 002630 013746 000004 MOV @#ERRVEC,-(SP) ;:SAVE ERROR VECTOR 
(2) 002634 012737 002670 000004 MOV #64$ ,a#ERRVEC :3SET UP ERROR VECTOR 
(2) 002642 012737 177570 002140 MOV #DSWR, SWR :SETUP FOR A HARDWARE SWICH REGISTER 
(2) 002650 012737 177570 002142 MOV *DDISe DISPLAY ::AND a nSRDWARE DISPLAY REGIS TER 
(2) 002656 022777 177777 177254 CMP #~1,aSWR ETRY TO RESERENCE HARDWARE SWR 
(2) 002664 001012 BNE 663° ::BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) :zAND THE HARDWARE SWR IS NOT = =1 
(2) 002666 000403 BR 65$ +:BRANCH IF NO TIMEOUT 
(2) 002670 012716 002676 64$: MOV #65$, (3P) TISET UP FOR TRAP RETURN 
(2) 002674 000002 RTI 
(2) 002676 012737 000176 002140 65$: MOV #SWREG, SWR gy’ sPOINT TO SOFTWARE SWR 
(2) 002704 012737 000174 002142 MOV #DISPREG,DISPL 
(2) 002712 012637 000004 66$: MOV (SP)+, SAERRUEC ” RESTORE ERROR VECTOR 
(2) 002716 005037 002176 CLR SPASS z:CLEAR PASS COUNT 
(2) 002722 132737 000200 002211 BITB = #APTSIZE,SENVM 3; TEST USER SIZE UNDER APT 
(2) 002730 001403 BEQ 67$ YES,USE NON-APT SWITCH 
(2) 00273e 012737 002212 002140 ae MOV ASSWREG, SWR SINO,USE APT SWITCH REGISTER 
5854 002740 005037 002172 CLR SFATAL CLEAR ERROR NUMBER 
5855 002744 005037 002170 CLR SMSGTYP :CLEAR MESSAGE TYPE 
5856 002750 005037 002174 CLR STESTN *CLEAR TEST NUMBER 
5857 37 THE FOLLOWING LINES OF CODE Ww vee” DELETED IN ORDER TO MAKE 
5858 2¢THIS DIAGNOSTIC SPECIFIC TO FALCON (11/21). 
5859 CALL FALCON ; CHECK FOR FALCON (KXT11) 32GPA 
5860 [BEG 1000$ ; BR IF NOT KXT11 SYSTEM 32GPA 
5861 ‘BIC #40,a#2 FALCON, LouER 10T... 32GPA 
5862 ‘BIC #40.a#3 i+ sENT 2:GPA 
5863 sBIC #40,a#36 “AND TRAP TO LEVEL 6. 22GPA 
5864 3CMP =—s-s $BASE,, #ABASE : 1§ $BASE VIRGIN ? 33GPA 


‘ ene 
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5869 002754 


5888 003052 


5891 003056 


005737 


112737 


005227 


104401 


005737 


106427 
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000042 
000042 
177777 
002210 
000001 


177777 


011306 
002134 


002440 
015662 
015724 
002134 


002202 


000001 


010570 
002412 


000002 
002432 


011456 
002100 
002202 
002210 


000300 
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000046 
002440 
000001 
002134 


002434 
002434 


002434 


002200 
000001 
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INITIALIZE THE COMMON TAGS 


BNE 1000$ ; BR IF NOT. siGPA 
_ MOV #174160,$BASE ; YES, USE ENGINEERING DEFAULT ::GPA 
SCHECK OPERATING ENVIRONMENT 
TST ara2 ZARE WE IN ACT/XXDP AUTO MODE? 
BEQ 1$ ‘BRANCH IF NO 
CMP a#42,a#46 ‘1S IT ACT AUTO MODE? 
BEQ ‘BRANCH IF YES 
MOV #1 XXDP ‘SET XXDP CHAIN MODE INDICATOR 
1$: CMPB Ss SEN, #1 sARE WE IN APT AUTO MODE? 
BNE ‘BRANCH I 
2$: MOV  #1,$AUTOB *SET AUTO MODE INDICATOR 
-PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 
S$; INC #-1 sFIRST TIME? 
BNE 5 :SKIP TITLE IF NO 
JSR R5, TOBUF + STORE 0-202 INTO BUFFER AREA 
TST SAUTOB SARE WE IN AUTO MODE? 
BEQ is ‘BRANCH TO thes TYPEOUT IF NOT 
TST XXDP [1S THE AUTO MODE UNDER XXDP? 
BEQ 5$ :SKIP TITLE IF NOT 
4$: TYPE ,TITLED SPRINT OUT THE TITLE 
TYPE  -{TLCABL ‘PRINT DRV11J CABLE REQ'D 
>GET THE VALUE IN THE SOF TWARE SWITCH REGISTER 
5$: TST SAU WE IN AUTOMATIC MODE? 
E START: BRANCH IF YES 
GTSWR SASK FOR SuR INPUT FROM CONSOLE 
START1: CLR [CLEAR UNIT NUMBER 
MOV SDEVM, DMAP [UP TO 4 DRV11U'S 
BIC #177760,0MAP = : POSITION oF spavit S 
MOV $BASE ,R1 :GET BASE ADDRESS 
MOV R1,DRCSA ‘MAKE BUS REG. POINTER = BASE 
BIT #1,DMAP i1S FIRST DRVil-J SELECTED 
BNE NEXPAS 
JMP NXDEV1 {NO ADVANCE BASE DRV11J ADDRESS 
NEXPAS: MOV #DRCSA,RO [SET UP REGISTER ADDRESS POINTERS 
NEXPA1: MOV R1, (ROS+ *LOAD EM 
ADD #2-R1 : 
CMP #DRDBD+2,RO TALL DONE? 
BNE NEXPA1 'BR IF NOT 
JSR RS, TRPCAT SEXTEND TRAP CATCHER 204-1774 
MOV #2100,SP TALWAYS RESET STACK 
MOV SUNIT, $DEVCT LOAD APT COUNTER WITH UNIT # 
CMPB Ss SENV #1 ARE WE IN APT MODE? 
BEQ NEXPA2 {BR IF YES, SKIP RESET 
RESET : INITIALIZE 
NEXPA2: MIPS  #PR6 *VER:0 


SEQ 0013 


ee eee a - eC 
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CNDRDA.P11 | 10=DEC=82 14:44 INITIALIZE THE COMMON T SEQ 0014 
91 
rod ; b; SRAAAARAAAAAAAAAAAAAKAEEAKAKAKEKEKAAAARAKERAAAAAAAARAAAAAAAAEAAAEAEE 
(3) SeTEST 1 TEST CHIP INTERRUPT ,GROUP 1,GROUP 
(3) RRREREERERS REREEREEREREEEEREREEREERERERREREERERERREREEEREREEES 
(2) 003206 000004 téT1: SCOPE 
5918 003210 013700 002412 MOV DRCSA, RO sSTART WITH GROUP 1 
5919 003214 1370) 00 416 MOV DRCSB.R1 
5920 003220 01 208 00 41 MOV DRCSA,R2 :REGISTER 1S COMMON FOR BOTH GROUPS 
5921 003204 13 03276 002110 MOV #1118,$LPERR  :SET Up LOOP N 
2928 00 2 01 130 2 002462 MOV #2 -GRECNT i COUNT ER FOR BOTH GROUPS 
59 3240 004537 tages 120$: JSR R sCLRCSR SCLEAR ALL CSRS 
5924 003244 012703 012570 MOV #BGCHP3,R3 i ENPECTED GbDAT FOR ISR,IMR 
5925 003250 012737 000050 002442 MOV #CSIMR iMRLOC STORE CLEAR SINGLE IMR CODE 
5926 003256 004537 011026 JSR R5,CLRIRR [CLEAR IRR REGS 
5927 0032 012737 O13 6 000300 MOV #1NTSRI 300 :STORE VECTOR ROUTINE 
5928 003270 012737 300 000302 MOV #300, 302 [STORE PSW VER: 
5929 905276 005037 0024.36 111$: CLR INTFLG SCLEAR INT. FLAG 
5930 003 012706 002100 MOV #2100,SP tINIT STACK th CASE OF ILLEGAL INT. LOOP 
5931 3306 112710 000340 MOVE  #PVMA. (RO) :PRESELECT VECTOR MEM ADDR 
5932 003312 112711 MOVB «#60, (R SWRITE VECTOR 300, 8Y0,LVO 
5933 003316 010037 00212 MOV RO, $BDADR SAVE Bus ADDRE 
5934 003322 112710 MOVB #SIMR, (RO) 'SET ALL IMR Fs 
5935 003326 113710 O02442 MOVB _—IMRLOC, (RO) [CLEAR MASK ON SINGLE, BIT 
2939 oss36 106427 move — #202. (RO) SLMDOS = COMMON VECTOR 
2938 003342 112712 000241 MOVB #241, (R2) USED IN TEST OF pGhour 2 
940 TENABLE TO GROUP 2. 
5941 003346 112710 000241 MOVB #241, (RO) [LMDS? = ARM THE CHIP 
5942 003352 005737 002436 TST INTFLG [CHECK FOR INTERRUPTS 
5943 003356 001401 BEQ 1$ 
5944 003360 104011 ERROR 11 ERROR, ILLEGAL INTERRUPT 
5945 003362 005037 002436 1$: CLR INTFLG SRESET INT. COUNTER 
5946 003366 112710 000120 MOVB  #SIRR, (RO) 'SET ALL IRR BITS 
5947 00337 loe4er 300 MIPS #PR6  ;VER:0 
5948 003376 005737 002436 TST INTFLG :CHECK FOR NO INTERRUPTS 
5949 003402 001401 BEQ $ 
5950 003404 104011 ERROR 11 ILLEGAL INTERRUPTS 
5951 003406 005037 002436 2$: CLR INTFLG SCLEAR INT. COUNTER 
5952 003412 106427 000000 MTPS  —s #PRO 
5953 003416 15 76@ 2 00 BISB #BIT1,1(R2) SET 1/E EXPECT INTERRUPT 
5954 003424 0127 090001 99 9021 MOV #1,$GODAT T ONE UPT 
5955 003432 013737 00 MOV INTFLG, $BDDAT sO MOULD HAVE IONE INTERRUPT 
2956 003440 023737 002124 805156 CAP $GDDAT. SBDDAT 
5958 003450 104012 ERROR 12 s INTERRUPT TEST ERROR 
5959 003452 1 : 000 38: MIPS &#PR6 _ ;VER:0 
5960 003456 o1 737, 101710 002124 MOV #101710, $GDDAT ;RDY,DIR,I/E, CHIP = 31x 
5961 003464 10237 00212 MOV R2,$BDAOR SCSRA ADDRESS 
3962 003470 011237 00 126 MOV (RO) ,SBDDAT 
5963 003474 O42 4 90000 002126 BIC 7 ;CLEAR UNDEFINED BITS 
5964 003502 023737 002124 002126 CMP SGODAT, SBDDAT 
3965 003510 001401 BEQ 4$ 
966 003512 104 @ ERROR 2 SCSRA REG ERROR 
: Vv J A ADY A G. 
596 3514 010137 002122 4$ MO R1,$BDADR SREADY TO READ ISR RE 
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58-1 
CNORDA.P11  10=DEC=8 TEST CHIP INTERRUPT ,GROUP 1,GROUP 2 SEQ 0015 

5968 003520 005037 00 126 CLR SBDDAT ;SET UP FOR BYTE READS 

5969 003524 005037 02124 CLR SGDDAT ?SET UP FOR BYTE EXPECTED 

5970 0035 111337 002124 MOVB = (R3), $GDDAT SEXPECTED DATA 

5971 003534 112710 909240 MOVB 1SR, (RO) [LOAD MODE TO READ ISR 

5972 003540 11137 02126 MOVB = (R1) , $BDDAT 

597 003544 023737 002124 002126 CMP SGDDAT. SBDDAT 

5974 003552 001401 BEQ 5 

5975 003554 104006 ERROR 6 zISR ERROR 

5976 003556 11633 002124 5$: MOVB (R3),$GDDAT § ;STORE EXPECTED 

5977 003564 112710 000244 MOVB = #MIMR- (RO) ‘LOAD MODE FOR IMR 

5978 003570 111137 002126 MOVB — (R1), $BDDAT 

5979 003574 023737 002124 002126 CMP SGDDAT , SBDDAT 

5980 003602 001401 BEQ é 

5981 003604 104005 ERROR yIMR ERROR 

5982 003606 116337 002124 6$: MOVB 1(R3),$GDDAT EXPECTED IRR 

5983 003614 112710 000250 MOVE #MIRR, (RO) ;LOAD MODE BITS FOR IRR 

5984 003620 111137 002126 MOVB = (R1) , $BDDAT 

5985 003624 023737 002124 002126 CMP SGDDAT, SBDDAT 

5986 003632 001401 BEQ 7$ 

5987 003634 104003 ERROR 3 s IRR ERROR 

5988 003636 005037 002124 7$: CLR SGDDAT 

5989 003642 112710 000254 MOVB = #MACR, (RO) 

5990 00 111137 002126 MOVB = (R1) , $BDDAT 

5991 003652 023737 002124 002126 CMP SGDDAT,SBDDAT 

5992 003660 001401 BEQ 10$ 

5993 003662 104004 ERROR ;ACR ERROR 

5994 00 005037 002124 10$: CLR $GDDAT 

5995 88 70 115718 18 MOVB #CHPISR, (RO) ;CLEAR HIGHEST PRIOR ISR 
74 11271 24 MOVB &#MISR, (RO) *LOAD MODE TO READ ISR 

5997 003700 111137 002126 MOVB  (R1), $BDDAT 

5 003704 023737 002124 002126 CMP SGDDAT, SBDDAT 

5999 003712 001401 BEQ 11$ 

6000 003714 19308 ERROR 6 3 ISR REG ERROR 

6001 003716 01273 101719 002124 11$: MOV #101710,$GDDAT :RDY,DIR,I/E, CHIP = 31x 

6002 003724 010237 00212 MOV R DADR sCSRA ADDRESS 

6003 0037 011257 002126 MOV (R2) , SBDDAT 

6004 003734 04@ 37 000007 002126 BIC # :CLEAR UNDEFINED BITS 

6005 003742 023737 002124 002126 CMP SGODAT. SBDDAT 

6006 003750 001401 BEQ 12$ 

6007 003752 104002 ERROR 2 sCSRA REG ERROR 

6008 003754 012737 100710 002124 12$: MOV #100710,$GDDAT :RDY,DIR, CHIP = 31x 

6009 003762 O4e712 1000 BIC #BI1T9, (R2) [CLEAR I/E 

6010 0037 01123 2126 MOV (R2) , $BDDAT SREAD CSRA 

6011 003772 042737 000007 002126 BIC #7, SBDDAT [CLEAR UNDEFINED BITS 

6012 004000 023737 002124 002126 CMP SGDDAT.SBDDAT 

6013 004006 001401 BEQ 13$ 

6014 904010 104002 ERROR 2 SCSRA REG ERROR 

6015 004012 00572 13$: TST (R3)¢ [GET NEXT ISR, IMR EXPECTED RESULTS 

6016 904014 0 03 7? 012610 cp R3,#EDCHP3 *CHECK FOR END 

6018 004022 003237 002442 INC IMRLOC s INCREMENT MASK BIT TO CLEAR 

6019 004026 000137 00 27 JMP 111$ [TEST NEXT ISR BIT 

6020 032 005337 00246 14$: DEC GRPCNT [TESTED BOTH GROUPS? 

6021 004036 0014 BEO TST +:BR IF DONE 

6022 040 0137 0024 2 MOV DRCSC,RO ‘SETUP FOR GROUP 2 

6023 004044 013701 426 MOV DRCSD,R1 *CSRC = CONTROL GROUP 2 








dD 2 
CNDRDA DRV11J DIAG TST PRT2 MACY11 30(1046) 15=DEC-82 15:26 PAGE 5 


8-2 
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6024 :CSRD = DATA — GROUP 2 

6025 004050 000137 003240 JMP 1208 :D0 GROUP 2 

6027 

peg tt FARRAR RR CHAAAAAEHE EATER EEE AAAAAAAEAAAEAEEHAAERAAEAEAREEEEE 
(3) tTEST 2 TEST ACR/ISR INTERRUPT ,GROUP 1,GROUP 2 
(3) jeseneneeneeenenerecerecedececeteneceeteteneceterenececeneeneres 
004054 000004 i812: SCOP 

6029 004056 013700 002412 MOV DRCSA,RO 

6030 004 013701 002416 MOV DRCSB.R1 

6031 004066 013702 002412 MOV DRCSA,R2 

6032 004072 012737 004144 002110 MOV #111$,$LPER2 | ;SET UP LOOP RETURN 

6033 004100 012737 000002 002462 MOV #2,GRPCNT D0 Two GROUPS 

6034 004106 004537 010746 120$: JSR R5.CLRCSR SCLEAR ALL CSRS 

6035 004112 012703 012570 MOV #BGCHPS,R3 SEXPECTED GDDAT FOR ISR 

6036 004116 012737 000050 002442 MOV WCSIMR,IMRLOC STORE CLEAR SINGLE IMR CODE 

6037 004124 004537 011026 JSR R5,CLRIRR [CLEAR IRR RE 

6038 004130 012737 011576 000300 MOV #INTSR1, 300 SSTORE VECTOR ROUTINE 

6039 004136 012737 000300 000302 MOV #300, 302 [STORE PSW :VER0 

6040 004144 005037 002436 111$: CLR INTFLG [CLEAR INT. 

6041 004150 012706 002100 MOV #2100,SP SINIT STACK in CASE 0 OF ILLEGAL INT. LOOP 

6042 004154 042712 001000 BIC #B1T9, (R2) [CLEAR INTERR 

6043 004160 112718 00024 MOVB #242,(R2) [CLEAR MAST UBASK NOPt 

6044 004164 112710 00024 MOVB #242.(RO) [CLEAR MASTER MASK GP1,GP2 

6065 004170 112710 000300 MOVB = #PACR,, (RO) SPRESELECT ACR FOR WRITING 

6046 004174 111311 MOVB — (R'3),, (R1) [NEXT BIT INTO ACR 

6047 00417 112710 34 MOVB = #PVMA, (RO) :PRESELECT VECTOR MEM ADDR 

6048 202 112711 MOVB #60, (R1) SWRITE VECT OR 300, BY, LVvO 

6049 004 06 010037 002122 MOV RO, $BDADR ‘STORE BUS ADD 

6050 00421 112710 0060 MOVB SIMR, (RO) SRE LDOIMR Bits: 

6051 004216 113710 002442 MOVB IHRL Ot (RO) [CLEAR MASK ON SINGLE BIT 

6052 004222 112710 000202 MOVB #202, (RO) [LMD04 = COMMON VECTOR 

6053 004226 106427 000000 MIPS #PR 

6054 004252 1527 ¢ 000002 000001 BISB #BIT1,1(R2) :SET 1/E,NO INTERRUPT 

6055 004240 005737 0024 TST INTFLG SCHECK FOR INTERRUPTS 

6056 004244 001401 BEQ 1$ 

6057 004246 104011 ERROR 11 ERROR, ILLEGAL INTERRUPT 

6058 004250 005037 002436 1$: CLR INTFLG SRESET INT. COUNTER 

6059 004254 112710 000120 MOVE = #SIRR, (RO) 'SET ALL IRR BITS 

6060 004260 1 2 000300 MIPS &#PR6 ° ;VER:0 

6061 004 64 005737 002436 TST INTFLG :CHECK FOR NO INTERRUPTS 

6062 004270 001401 BEQ 2$ 

6063 004272 104011 ERROR 11 SILLEGAL INTERRUPTS 

6064 004274 005037 002436 2$: CLR INTELG [CLEAR INT. COUNTER 

6065 004300 106427 MIPS 

6066 004304 112712 000241 MOVB pont, (R2) SUSED IN TEST OF GROUP 2 

606 SARM GROUP 1 CHIP TO PASS 

6068 3ENABLE TO GROUP 2 CHIP. 

6069 004310 11 710 0241 MOVB 424i crO) ARM THE CHIP 

6070 004314 01273 1 002124 MOV #1, $GDDAT TEXPECT ONE INTERRUPT 

6071 004322 013737 002 0021 6 MOV NTFLO SBDDAT [SHOULD HAVE ONE INTERRUPT 

6072 004330 023737 002124 002126 CMP GDDAT. $BDDAT 

6073 004336 001401 BEQ 3$ 

6074 004340 104012 ERROR 12 s INTERRUPT TEST ERROR 

6075 004342 106427 000300 3S: MIPS #PR6 ;VER:0 
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CNDRDA.P11 DEC=82 14 TEST ACR/ISR INTERRUPT ,GROUP 1,GROUP 2 SEQ 0017 
6076 004346 010137 002122 4$: MOV R1,$BDADR ;READY T0 READ ISR REG. 
6077 00435 909037 002126 CLR SBODAT :SET UP FOR BYTE READS 
6078 004356 005037 002124 CLR SGDDAT [SET UP FOR BYTE EXPECTED 
6079 004 112710 000240 MOVB  &#MISR, (RO) SLOAD MODE TO READ ISR 
6080 004366 111137 002126 MOVB = (R1) , $BDDAT 
6081 004372 023737 002124 002126 CMP SGDDAT,$BDDAT ;ACR SHOULD CLEAR ISR 
004400 001401 5$ 
6083 004402 104006 ERROR 6 ZISR ERROR 
004404 11633 000001 002124 5$: MOVB 1(R3),$GDDAT STORE EXPECTED 
6085 004412 112710 000244 MOVB = #MIMR. (RO) sLOAD MODE FOR IMR 
004416 111137 002126 MOVB = (R1), $BDDAT 
6087 004422 023737 002124 002126 CMP SGDDAT, SBDDAT 
004430 001401 EQ 6$ 
6089 004432 104005 ERROR 5 ZIMR ERROR 
004434 116337 000001 002124 6S: MOVB 1<R3) . $GDDAT SEXPECTED IRR 
6091 004442 112710 000250 MOVB = #MIRR. (RO) [LOAD MODE BITS FOR IRR 
6092 004446 111137 002126 MOVB = (R11) RE SDDAT 
6093 004452 023737 002124 002126 CMP SGDDAT, $BDDAT 
6094 004460 001401 BEQ 7$ 
6095 004462 104003 ERROR 3 ZIRR ERROR 
60% 004464 111337 002124 7$: MOVB (R3) -SGDDAT SEXPECTED ACR 
6097 004470 112710 000254 MOVB #MACR, (RO) 
6098 004474 111137 002126 MOVB = (R1),, $BDDAT 
6099 004500 023737 002124 002126 CMP SGDDAT, $BDDAT 
6100 004506 001401 BEQ 10$ 
6101 004510 104004 ERROR 4 R ERROR 
6108 004512 005723 10$: TST (R3)+ eet NEXT. ISR, IMR, IRR EXPECTED RESULTS 
6103 004514 0 0527 012610 CMP R3,#EDCHP3 + CHECK 
6104 004520 0014 BEQ 11$ ‘DONE wiih GROUP TEST 
6105 004522 005237 002442 INC IMRLOC 3 INCREMENT MASK eit TO CLEAR 
6106 004526 000137 004144 JMP 1118 [TEST NEXT ISR BIT 
6107 004532 005337 002462 11$: DEC GRPCNT S TESTED BOTH GROUPS? 
6108 004536 001406 BEQ TST ::BR IF DON 
6109 004540 013700 002422 MOV DRCSC,RO :SETUP FOR GROUP 2 
6110 004544 013701 002426 MOV DRCSD,R1 :CSRC = CONTROL GROUP 2 
6111 [CSRD = DATA — GROUP 2 
61g 004550 000137 004106 JMP 1208 :D0 GROUP 2 
si 
6116 FRRAAAAAAARERAEAAAAAAAEAAEEAAEARAEAAAERAAAREREAAEAAERETEEREAEEAEEE 
(3) TSTEST 3 TEST VECTOR ADDR MEM,LEV 0-7,BY0-3, (204-1774) ,GRPS 1,2 
(3) eeRRHeReRekeeeeeeeeeeteeeeeeeeeeeeaeaeeeeerereneatanereeteneeer 
(2) 004554 000004 1813: SCOPE 
6117 004556 013700 002412 MOV DRCSA,RO 
6118 004562 013701 00241 MOV DRCSB.R1 
6119 004566 01 202 00241 MOV RCSA,R2 
6120 004572 012737 00000 902462 MOV #2, GRPCNT :D0 TWO GROUPS 
6121 004600 012737 000001 002472 120$: MOV 1.BY SINIT FOR BYTE COUNT 0 
612¢ 004606 004537 01074 JSR RS.CLRCSR [CLEAR ALL CSRS 
6123 00461 oi 737 90034 002456 MOV #PVMA,VECVAL § START VECTOR LEVEL 0.BYTE COUNT 0 
6124 004620 0127 12570 121$: MOV #BGCHPS R4 SEXPECTED ISR, IMR PATTERN 
6125 004624 oI 737 10 0024 MOV . LVLENT [COUNTER FOR 6-7 LEVELS 
6126 004632 012737 50 44 MOV sesitn HRS FARLOC SSTORE SINGLE IMR CODE 
6127 004640 012737 000130 002446 MOV WSSIRR.IRRLOC STORE SINGLE IRR CODE 
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8-4 
TEST VECTOR ADDR MEM,LEV 0-7,B8Y0-3, (204-1774) ,GRPS 1,2 


MOV OESE58 , LSALOC 


JSR 
MOV #112$,$LPERR 
MOV #204, VECLOC 
mTPS) so# 

MOV #2100,SP 

BIC #8119, (R2) 
JSR RS LAIRR 
MOVB W344 , (R2) 


MOV VECLOC ,R3 
MOV R3,VECPAT 
ROR VECPAT 
ROR 


MOV FINTBYS,(R3) 
MO 2(R3) 


vECcP 

Vv #300, 
CLR INTFLG 
MOV BYNUM ,BYCNT 
MOVB VECVAL , (RO) 
MOVB VECPAT,(R1) 
DEC BYCNT 
BNE 113$ 
MOV B peones 
MOVB #SIMR, es 
MOVB IMRLOC, (RO) 
MTPS #PRO 
MOVB #241, (RO) 
TST INTFLG 
BEQ 1$ 
ERROR 11 
CLR INTFLG 
MOVB IRRLOC, (RO) 
MTPS #PR6 3 
TST INTFLG 
BEQ 2s 
ERROR 11 
CLR INTFLG 
MTPS #PRO 
BISB #B1T1,1(R2) 


MOV BYNUM, SGDDAT 
MOV INTFLG,$BDDAT 
CMP  trcadnmmaeal 


ERROR 
MTPS #PR6 VER:0 
MOV 1,$BDADR 

CLR ODAT 

CLR SGDDAT 

MOVB  _ (R4) , SGDDAT 
MOVB 1SR, (RO 
MOVB  (R1),$BDDAT 

CMP $coDAT. BO BDDAT 
BEQ 


+ STORE CLEAR p PATen ISR CODE 
sRESTORE TRAP CHER 

STORE SCOPE 

3ST nw | AT VECTOR 204 


SINIT STACK IN CASE OF ILLEGAL INT. LOOP 
7CLEAR INTERRUPT ENABLE 
CLEAR IRR REGS 
;USED IN TEST OF GROUP 2 
;ARM GROUP 1 CHIP TO PASS 
ENABLE TO GROUP2 
:GET VECTOR 


;ROTATE VECTCR ADDR Two RIGHT 
[TO WRITESVECTOR MEM ADDR. 
4 ROUT INE 


sBYTE COUNTS OF 0-3 

att: 3 VECTOR MEM ADDR 

sWRITE VECTOR 

DONE WITH BYTE COUNT VALUE 

;NO, LOAD yd FOR NEXT BYTE COUNT 
SAVE BUS ADDRESS 


SET ALL IMR R BIT Ss 
CLEAR MASK ON SINGLE BIT 


3LMD57 = ARM THE CHIP 
7CHECK FOR IN‘ERRUPTS 


sERROR, be | INTERRUPT 
RESET INT. COUNTER 
SET SINGLE IRR BIT 


sCHECK FOR NO INTERRUPTS 


ILLEGAL INTERRUPTS 
sCLEAR INT. COUNTER 


:SET 1/E,EXPECT INTERRUPT 
SEXPECT 1 TO 4 INTERRUPTS 
[BASED ON By YTE COUNT VALUE 
[SHOULD HAVE 1 TO 4 INTERRUPTS 
[BASED ON BYTE COUNT VALUE 


; INTERRUPT TEST ERROR 
zREADY "9 READ ISR REG. 
3SET UP FOR BYTE READS 
;SET UP FOR oyte EXPECTED 
;EXPECTED DATA 

LOAD MODE TO READ ISR 


SEQ 0018 





G 2 
CNDRDA DRV11J DIAG TST _PRT2 MACY11 30(1046) 15=DEC=82 15:26 PAGE 58-5 
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| 6184 005172 104006 ERROR 6 y1SR ERROR 
6185 005174 1164 000001 002124 5$: MOVB 1(R4),$GDDAT  :STORE EXPECTED 
6186 005202 112710 000244 #MIMR, (RO) [LOAD MODE FOR IMR 
6187 905206 111137 002126 MOVB  (R1), $BDDAT 
6188 005212 023737 002124 002126 CMP SGDDAT, SBDDAT 
6189 005220 001401 BEQ $ 
6190 005222 104005 ERROR IMR ERROR 
6191 005204 005037 002124 6$: CLR SGDDAT 
6192 005230 112710 000250 MOVB  #MIRR, (RO) ;LOAD MODE BITS FOR IRR 
6193 005234 111137 002126 MOVB = (R1) , $BDDAT 
6194 005240 023737 002124 002126 CMP SGDDAT, SBDDAT 
6195 005246 001401 BEQ 7$ 
6196 005250 104003 ERROR 3 IRR ERROR 
6197 005252 005037 002124 7$: CLR SGDDAT 
6198 005256 112710 000254 MOVB  #MACR, (RO) 
6199 005262 111137 002126 MOVB = (R1), $BDDAT 
6200 005266 023737 002124 002126 CMP SGDDAT, SBDDAT 
6201 005274 001401 BEQ 10$ 
6202 005276 104004 ERROR gACR ERROR 
6203 005300 005037 002124 10$: CLR $GDDAT 
6204 005304 113710 002444 MOVB _—ISRLOC, (RO) :CLEAR SINGLE ISR BIT 
6205 005310 112710 000240 MOVB  #MISR, (RO) [LOAD MODE TO READ ISR 
6206 005314 111137 002126 MOVB = (R1) , $BDDAT 
6207 005320 023737 002124 002126 CMP SGDDAT, $BDDAT 
6208 005326 001401 BEQ 11$ 
6209 005330 104 ERROR 6 s1SR REG ERROR 
6210 005332 004537 011364 11$: JSR RS,RESTRP SRESTORE VECTOR JUST TESTED 
6211 009356 005737 017302 TST KXTFLAG + KXT11 2? z:GPA 
12 005342 001404 BEQ 100$ : BR IF NOT S:GPA 
6213 005344 022737 000400 002452 CMP #400, VECLOC : YES, FINISHED 204-374 2? S:GPA 
6214 005352 000403 403 + SKIP NEXT TO FIND OUT 7:GPA 
6215 005354 100$: 33GPA 
6216 005354 022737 002000 002452 CMP #2000,VECLOC =; FINISHED? 
6217 005362 00140 BEQ 12$ SFINISKED VECTORS 204-1774? 
6218 005364 000137 004674 JMP 112$ STEST NEXT VECTOR ADOR 
6219 005370 005724 12$: TST (RG)+ S INDEX EXPECTED ISR AND IMR PATTERN 
6220 005372 005237 002442 INC IMRLOC SSTORE CLEAR FOR NEXT MASK BIT 
6221 005376 005237 002446 INC IRRLOC SSTORE SET FOR NEXT IRR BIT 
6222 005402 005237 002444 INC ISRLOC [STORE CLEAR FOR NEXT ISR BIT 
6223 005406 005237 002456 INC VECVAL :SETUP TO TEST NEXT VECTOR LEVEL 
6224 005412 005337 002466 DEC LVLCNT SFINISHED LEVELS 0-7 
6225 005416 00 402 BEQ 13$ [YES,CHECK BYTE COUNT END 
6226 005420 13 666 JMP 1118 [NO,b0 NEXT LEVEL 
6227 005424 005237 002472 13$: INC BYNUM S INDEX BYTE COUNT 
6228 005430 104407 CKSWR [LOOK FOR SWITCH CHANGE REQUEST 
6229 005432 022737 000400 002456 CMP #400, VECVAL [FINISHED ALL BYTE COUNTS 0-3 
6230 005440 00140 BEQ 14$ [FINISHED TWO GROUPS? 
6231 005442 000137 004620 JMP 121$ 200 NEXT eye COUNT FOR 
6233 005446 005337 002462 14$: DEC GRPCNT SFINISHED TWO GROUPS? 
6234 005452 001406 BEQ TST4 7:BR IF DONE 
6235 005454 013700 002422 MOV DRCSC,RO :CSRC = CONTROL GROUP 
6236 460 013701 002426 MOV DRCSD.R1 :CSRD = DATA GR 
6237 000137 004600 JMP 120$ £00 GROUP 2 FOR BYTE COUNTS 0-3 
6238 SAND LEVELS 0-7 FOR EACH BYTE COUNT. 
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|CNDRDA.P11 10-DEC-82 14:4 T3 TEST VECTOR ADDR MEM,LEV y=) BY0=3, (204=1774),GRPS 1,2 SEQ 0020 
6240 
41 FERRARA RAREAEAAAAEEE AEE EEEAAEAAEREERERAAEEEREEAAAEAHEEEEEEE 
(3) TRTEST 4 TEST VECTOR ADDR MEM,LVLS 0-7,BY0-3,(0-200)GRPS 1,2 
(3) eRREReReeReeeeeeeeeeeeeeeeeeteedeaeeaaeetarereneaeaeeeeeeeeeet 
(2) 005470 000004 i$14: SCOPE 
6242 005472 013700 002412 MOV DRCSA,RO 
6243 005476 013701 002416 MOV DRCSB.R1 
6244 005502 013702 002412 MOV DRCSA,R2 
6245 005506 012737 000002 002462 MOV #2,GRPCNT :D0 TWO GROUPS 
6246 005514 012737 000001 002472 120$: MOV #1.BYNUM SINIT FOR FIRST BYTE COUNT 
003522 004537 010746 JSR R5.CLRCSR [CLEAR ALL CSRS 
6248 005526 012737 000340 002456 MOV #PVMA,VECVAL §§;START VECTOR LEVEL 0,8YTE COUNT 0 
005534 012704 012570 121$: MOV #BGCHP3, R4 :1SR, IMR R 
6250 005540 012737 000010 002466 MOV #8.,LVLCNT START LEVEL COUNT 0-7 
6251 005546 012737 000050 002442 MOV #CSIMR, IMRLOC ‘3T ORE CLEAR SINGLE IMR BIT CODE 
6252 005554 912737 000130 002446 MOV WSSIRR,IRRLOC STORE SET SINGLE IRR BIT CODE 
6253 005562 012737 005574 002110 MOV #112$,$LPERR § :LOOP RETURN 
6254 005570 005037 002452 111$: CLR VECLOC 3START AT VECTOR 0 
| 6255 005574 106427 0003 112$: MTPS #300 : VER:0 
6256 005 012706 002100 MOV #2100,SP SINIT STACK IN CASE OF ILLEGAL INT. LOOP 
6257 005604 042712 001000 BIC #B1T9. (R2) 'CLEAR INTER RUPT ENABLE 
6258 005610 004537 011026 JSR RS,CLRIRR [CLEAR IRR REGS. 
6259 005614 112712 000241 MOVB #241,(R2) USED IN TEST OF GROUP 2 
60 [ARM GROUP 1 CHIP TO PASS 
6261 tENABLE TO GROUP 2. 
oc6e Hire onaege stert4 men VECLOE SRS 1 Oe ORE TRAP CATCHER FOR 0-200 
6264 ie 10337 po ouee MOV R3,VECPAT 
6265 005634 006037 002454 ROR veCPAT ROTATE VECTOR ADDR Two RIGHT 
6266 005640 006037 002454 ROR [TO WRITE VECTOR MEM 
6267 005644 012713 012056 MOV HINTSRS, (83) STORE VECTOR ROUT ine. 
6268 005650 012763 000300 000002 MOV #300,2(R3) [STORE PSW:VER:0 
6269 005656 005037 0024.36 CLR INTFLG [CLEAR INT. FLAG 
6270 005662 013737 472 002470 MOV BYNUM, BYCNT [BYTE COUNT OF 0 TO 3 
6271 SFOR 1 TO 4 VECTORS. 
6272 005670 113710 002456 MOVB VECVAL, (RO) SPRESELECT VECTOR MEM ADDR 
6273 005674 113711 002454 113$: MOVB VECPAT.(R1) SWRITE V ¢T 
6274 005700 005337 002470 DEC BYCNT [D0 1 TO 4 VECTORS 
6275 005704 001373 BNE 113$ ;WRITE VECTORS BASED ON BYTE COUNT 
6276 005706 010037 002122 MOV RO, $BDADR [SAVE BUS AD DRESS 
6277. 005712 (112710 MOVB =: #S IMR, (RO) [SET ALL IMR BITS 
6278 005716 113710 002442 MOVB _—sIMRLOC, (RO) [CLEAR MASK ON SINGLE Bit 
79 005722 106427 000000 MIPS  #PR 
80 005726 112710 000241 MOVB #241, (RO) :LMD57 = ARM THE CHIP 
6281 005732 005737 002436 TST INTFLG SCHECK FOR INTERRUPTS 
82 005736 001405 BEQ 
6283 005740 004537 011326 JSR RS. FRMBUF ZRESTORE 0-202 
6284 005744 104011 ERROR 1 ZERROR ILLEGAL | INTERRUPT 
6285 005746 004537 011756 JSR R5,CAT200 ESTORE T TCHER 
86 005752 005037 3436 1$: CLR INTFLG ERESET inte AC OUNTER 
6287 005756 115710 002446 MOVB  =IRRLOC, (RO) [SET SINGLE IRR BIT 
88 0057 loe4e 0003 MIPS &#PR6  ;VER:0 
6289 00576 3737 0024 é' Ist NTFLG ZCHECK FOR NO INTERRUPTS 
6291 005774 004537 011326 JSR RS. FRMBUF ZRESTORE 0-202 
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CNDRDA.P11 —- 10=DEC=82 14:44 TEST VECTOR ADDR MEM,LVLS 0-7,8Y0-3, (0-200)GRPS 1,2 SEQ 0021 
629 906000 104011 ERROR 11 ZILLEGAL INTERRUPTS 
6293 006002 004537 011756 JSR R5,CAT200 SRESTORE TRAP CATCHER 
6294 906006 005037 002436 2$: CLR INTFLG [CLEAR INT. COUNTER 
6295 006012 106427 000000 MTPS  #PRO 
96 006016 130760 000002 000001 BISB #B1T1,1(R2) :SET 1/E,EXPECT INTERRUPT 
6297 006024 013737 002472 002124 MOV BYNUM,$GDDAT | :EXPECT NUMBER OF INTERRUPTS 
6298 SEQUAL TO BYTE COUNT. 
6299 006032 013737 002436 002126 MOV INTFLG,$BDDAT SHOULD HAVE NUMBER OF INTERRUPTS 
6300 ‘EQUAL TO BYTE COUNT. 
6301 006040 023737 002124 002126 CMP SGDDAT,SBDDAT 
6302 006046 001405 BEQ $ 
6 006050 004537 011326 JSR RS, FRMBUF sRESTORE 0-202 
6304 006054 104012 ERROR S INTERRUPT TEST ERROR 
6305 006056 004537 011756 JSR R5,CAT200 TRESTORE TRAP CATCHER SUB 
6306 106427 000300 3$: MTPS #PR6 — ;VER:0 
6307 006 010137 002122 4$: MOV R1,$BDADR :READY TO READ ISR REG. 
6308 006072 005037 002126 CLR $BODAT [SET UP FOR BYTE READS 
6309 006076 005037 002124 CLR $GDDAT :SET UP FOR BYTE EXPECTED 
6310 006102 111437 002124 MOVB = (R4), SGDDAT SEXPECTED DATA 
6311 006106 112710 000240 MOVB = #MISR, (RO) [LOAD MODE TO READ ISR 
6312 006112 111137 002126 MOVB = (R1), $BDDAT 
6313 006116 023737 002124 002126 CMP SGDDAT , $BDDAT 
6314 006124 001405 BEQ ‘ 
6315 006126 004537 011326 JSR RS, FRMBUF ZRESTORE 0-200 
6316 006132 104006 ERROR 6 [ISR ERROR 
6317 006134 004537 011756 JSR R5S,CAT200 SRESTORE TRAP CATCHER 
S318 061k) 116457 000001 002126 5s: ROVE IKRK).SGDDAT STORE EXPECTED 
6320 poets 114439 02126 MOVB = (R1),, $BDDAT 
6321 006156 023737 002124 002126 CMP SGDDAT, SBDDAT 
6322 006164 001405 BEQ 6 
6323 006166 004537 011326 JSR R5, FRMBUF ;RESTORE 0-202 
6324 006172 104005 ERROR 5 [IMR ERROR 
6325 006174 004537 011756 JSR RS,CAT200 SRESTORE CATCHER 
6326 006290 005037 002124 6$: CLR $GODAT 
6327 006204 112710 000250 MOVB &#MIRR, (RO) ;LOAD MODE BITS FOR IRR 
6328 066210 11113 002126 MOVB _ (R1) , $BDDAT 
329 006214 023737 002124 002126 CMP SGDDAT,SBDDAT 
©2230 006222 001405 BEQ 
6331 006224 004537 011326 JSR RS, FRMBUF ZRESTORE 0-202 
6332 0062 104003 ERROR 3 
6333 006232 004537 011756 JSR RS,CAT200 SRESTORE TRAP CATCHER 
6334 006236 005037 002124 7$: CLR SGODAT 
6335 006242 112710 000254 MO #MACR, (RO) 
6336 006246 111137 002126 MOVB = (R1) , $BDDAT 
6337 006252 023737 002124 002126 CMP SGDDAT, SBDDAT 
6328 006260 001405 BEQ 
6339 006262 004537 011326 JSR RS, FRMBUF sRESTORE 0-202 
oer) Besse Obees> 011756 een” RS. CAT200 CRESTORE TRAP CATCHER 
634 006274 003057 8 124 10$: CLR GODAT , 
6343 006 112 10 160 MOVB #CISR, (RO) :CLEAR ISR 
6344 006304 112710 240 MOVB 1SR, (RO) SLOAD MODE TO READ ISR 
6345 006310 M1137 002126 MOVB = (R11) , $BDDAT 
6346 006314 023737 002124 002126 CMP SGDDAT, SBDDAT 
6347 006322 001405 BEQ 11$ 
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CNDRDA.P11 - 10=DEC=82 14 14 TEST VECTOR ADDR MEM,LVLS 0-7,BY0-3, (0-200)GRPS 1,2 SEQ 0022 

6348 006324 004537 011326 JSR RS, FRMBUF sRESTORE 0-202 

6349 006330 104 ERROR 6 SISR REG ERROR 

6350 006332 004537 011756 JSR RS,CAT200 SRESTORE TRAP CATCHER 

6351 006 36 004537 011714 11$: JSR R5.RES200 :RESTORE VECTOR JUST TESTED 

6352 006 004537 011326 JSR R5. FRMBUF REST E 9-200 TO SYSMAC CONTROL 

6353 006346 022737 000204 002452 CMP #204 ,VECLOC ; PaNISKE 

6354 006354 001402 BEQ 12$ 

6335 006356 000137 005574 JMP 112$ sTEST NEXT VECTOR ADDR 

6356 006 005724 128: TST (R4)+ ‘INDEX EXPECTED ISR AND IMR PATTERN 

6357 006364 0052 7 002442 INC IMRLOC SSTORE CLEAR NEXT Im BIT 

6358 006370 005237 002446 INC IRRLOC SSTORE SET NEXT IRR BIT 

6359 006374 005237 002456 INC VECVAL SSETUP TO TEST NEXT VECTOR LEVEL 

6360 006400 005337 002466 DEC LVLCNT SFINISHED LEVELS 0-7? 

6361 006404 001402 BEG 13$ 7YES,CHECK BYTE COUNT END 

6362 006406 000137 005570 JMP 111$ =NO,00 NEXT LEVEL,SAME BYTE COUNT 

6363 006412 005237 002472 13$: INC BYNUM SINDEX BYTE COUNT 

6364 006416 104407 CKSWR ‘LOOK FOR SWITCH CHANGE 

6365 006420 022737 000400 002456 CMP #400, VECVAL SFINISHED ALL FOUR BYTE COUNTS 

6366 006426 001402 BEQ 4 SYES, FINISHED GR 

6367 006430 000137 005534 JMP 121$ :NO-DO. XT BYTE COUNT WITH 

6369 006434 005337 002462 14$: DEC GRPCNT ‘FINISHED BOTH GROUP 1 AND GROUP 2? 

6370 006440 001406 BEQ 15$ ?YES,BOTH GROUPS TESTED 

6371 006442 013700 002422 MOV DRCSC,RO =NO,TEST GROUP 2 

6372 *CSRC = CONTROL GROUP 2 

6373 006446 013701 002426 MOV DRCSD,R1 :CSRD = DATA _ GROUP 

6374 006452 000137 005514 JMP 1208 ‘RETURN AND TEST GROUP 

6375 : BYTE COUNTS 0-5 AND 

6376 ZLEVELS FOR EACH BYTE COUNT. 

6377 006456 004537 011326 15$: JSR RS. FRMBUF SRESTORE 0-202,EXIT TEST 

6379 

6380 FEAAAEAAEEEEAEREAE EEE EEE AEE EAA EEAAAEREREEEAERAEEEEEEREREERERE 
(3) tSTEST 5 TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 
(3) SSAA AEAAAATAARARAAEASAAEAEEAATAEATAATAAEAEAAAAEAARAAAAAERAAAERAEREREAEERAREEEEE 
(2) 006462 000004 i815: SCOPE 

6381 sBYTE COUNT = 4 

6382 d LEVELS = = ta 

6383 006464 004537 010746 JSR RS, CLACSR :CLEAR AL L CSR 

6384 006470 004537 ot teee JSR RS. RBF sCLEAR VECTOR BUFFER AREA 

6385 006474 004537 0114 JSR RS. TRPCAT sRESTORE TRAP a 

6386 006500 004537 01123 JSR RS. STRVEC [STORE VECTOR AREA 300-674 

6387 [WITH INT. SERV ROUTINES 

6388 006504 012737 000377 002456 MOV #377, VECVAL [VECTOR MEM FINAL VALUE 

6389 006512 004537 011026 JSR R5,CLRIRR [CLEAR IRR REGS 

6390 006516 912704 0170 MOV #VBUF R4 ‘VECTOR ADDRESS BUFFER 

6391 006522 004537 011064 JSR RS, VECFIL colt Vecrone S00c474 FOR GROUPS 1,2 

639 006526 912705 01214 MOV #SETVEC,RS : RS POINTS T tantly HANDLER  ::GPA 

639% 006532 013700 00241 MOV DRCSA,RO GROUP tere 

6395 006536 013701 00242 MOV DRCSC.RI [GROUP 2 CSR 

63% 006542 01370, 00 416 MOV DRCSB,.R 

$398 eth 130 00 138 mov BO SBbADR ZSTORE BUS ADDRESS 

6399 006556 112710 3 MOVE  #PACR, (RO) SPRESELECT GP1 ACR FOR WRITING 
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TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 SEQ 0023 


6400 006562 3712 000377 MOVB «#377, (R2) :SET ALL ACR BITS GP1 
6401 006566 112710 000040 MOVB = #CIMR, (RO) :CLEAR ALL IMR BITS GP1 
6402 006572 005037 002436 CLR INTFLG sCLEAR INT. FLAG 

640 906576 106497 0 MTPS 

6404 006602 112710 000120 MOVB = #SIRR, (RO) :SET ALL IRR BITS 

6405 006606 112710 000241 MOVB #241, (RO) [LMDS7 = ARM THE CHIP 
6406 00661 106427 000300 MTPS «#300 : VER: 

6407 006616 005737 002436 TST INTFLG :CHECK FOR NO INTERRUPTS 
6408 006622 001401 BEQ 1$ 

6409 006624 104071 ERROR 11 ZILLEGAL INTERRUPT 

6410 006626 005037 002436 1$:; CLR INTFLG 

6411 006632 112711 000300 MOVB  #PACR,(R1) ZPRESELECT GROUP2 FOR WRITING 
ae 006636 112713 000377 ., MOVB #377,(R3) SALL ACR BITS SET GP2 
6413 006642 112711 000040 MO #CIMR, (R1) [CLEAR ALL IMR BITS GP2 
6414 006646 106427 00 MIPS) so# 

6415 006652 112711 000120 MO #SIRR, (R1) 7SET ALL IRR BITS 

6416 006656 112711 000241 MOVB #241, (R1) :LMD57 = ARM THE CHIP 
6417 006662 106427 000300 MIPS #PR6  ;VER:0 

6418 005737 002436 TST INTFLG :CHECK FOR NO INTERRUPTS 
6419 006672 001401 BEQ 2$ 

6420 006674 104011 ERROR 11 ZILLEGAL INTERRUPT 

6421 006676 005037 002436 2$: CLR INTFLG 

6422 006702 106427 000000 MTPS #PRO 

6423 006706 152760 000002 000001 BISB #BIT1,1(RO) :SET INT. ENABLE,EXPECT INTERRUPTS 
6424 006714 012737 000100 002124 MOV #64. ,$GDDAT SEXPECT 64 INTERRUPTS 
6425 006722 013737 002436 002126 MOV INTFLG,$BDDAT :SHOULD HAVE 64 INTERRUPTS 
6426 006730 loece? 000300 MIPS #PR VER: 

6427 006734 023737 002124 002126 CMP $GDDAT.SBDDAT 

6428 006742 001401 BEQ 3 

6429 006744 104012 ERROR 12 s INTERRUPT TEST ERROR 
6430 006746 012737 101710 002124 38: MOV #101710,$GDDAT :RDY,DIR,I/E,CHIP = 31x 
6431 006754 010037 002122 MOV RO, $BDAOR [CSRA 

6432 006760 011037 002126 MOV (RO) ,SBDDAT 

6433 006764 042737 000007 002126 BIC ; SCLEAR UNDEFINED BITS 
6434 006772 023737 002124 002126 CMP SGDDAT,SBDDAT 

6435 007000 001401 BEQ 4$ 

6436 007002 104002 ERROR 2 ICSRA REG ERROR 

6437 007004 012737 000310 002124 4$: MOV #310, $GDDAT ‘STORE EXPECTED 

6438 007012 010137 002122 MOV R1,$BDADR :CSRC 

CttO OOTO2S Bu2TEe SpO0dy 002126 ee Oe ict cee ccc eren maul 
6441 007030 $3953) 002124 002126 CMP ScODAT.SBDDAT ; 

6442 007036 001401 BEQ 5 

6443 007040 104002 ERROR 2 ICSRC ERROR 

6444 007042 010237 002122 5$: MOV R2,$BDADR [CSRB ADDRESS 

6445 00704 00037 002126 CLR SBDDAT 

6446 00705 9030 7 002124 CLR SGDDAT 

644 007056 112710 000240 MOVB #MISR, (RO) ;READ ISR 

6448 007 111237 002126 MOVB = (R2) , $BDDAT 

6449 007066 023737 002124 002126 CMP SGDDAT, SBDDAT 

6450 007074 001401 BEQ 6 

6451 007076 104 ERROR 6 sI1SR ERROR,GP1 

645¢ 007100 112710 0002 68: MOVB aH (RO) [MODE BITS FOR IMR 

6453 007104 M1123 9021 6 MOVB = (R2) ,$BDDAT 

6454 007110 023 ? 124 002126 CMP $CDDAT, SBDDAT 

6455 007116 001401 BEQ $ 
















a L 2 
CNDRDA DRVI1J DIAG TST PRT2 MACY11 30(1046) 15=DEC=82 15:26 PAGE 58-10 
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6456 007120 104005 ERROR 5 ;IMR ERROR,GP1 
6457 007122 112710 000250 7$: MOVB  #MIRR, (RO) ‘MODE BITS FOR IRR 
6458 007126 W237 002126 MOVB (R2), $BDDAT 
6459 067132 023737 002124 002126 CMP SGDDAT, SBDDAT 
6460 007140 001401 10$ 
6461 007142 104003 ERROR yIRR ERROR 
6462 007144 012737 000377 002124 10$: MOV #377, SGDDAT SEXPECTED ACR 
6463 007152 112710 000254 MOVB #MACR, (RO) SREAD ACR 
6464 007156 111237 002126 MOVB = (R2) , $BDDAT 
6465 007162 023737 002124 002126 CMP SGDDAT ,SBDDAT 
6466 007170 001401 BEQ 11$ 
6467 007172 104004 ERROR 4 SACR ERROR 
68 007174 005037 002124 11$: CLR $GDDAT 
6469 007200 005037 002126 CLR SBDDAT 
70 007204 010337 002122 MOV R3,$BDADR ZCSRD ADDRESS 
6471 007210 112711 000240 MOVB = #MISR,(R1) SREAD ISR ,GP2 
6472 007214 111337 002126 MOVB _ (R3) , $BDDAT 
6473 007220 023737 002124 002126 CMP SGDDAT , SBDDAT 
6474 007226 001401 BEQ 12$ 
6475 007230 104006 ERROR 6 :1SR ERROR,GP1 
6476 007232 112711 000244 12$:  MOVB  #MIMR,(R1) SREAD IMR GP2 
6477 007236 111337 002126 MOVB  (R3), $BDDAT 
6478 007242 023737 002124 002126 CMP SGDDAT, SBDDAT 
6479 007250 001401 EQ 13$ 
6480 007252 104005 ERROR 5 sIMR ERROR,GP2 
6482 007254 112711 000250 13$: MOVB  #MIRR,(R1) ;READ IRR 
6483 0072 111337 002126 MOVB  (R3),$BDDAT 
84 007264 023737 002124 002126 CMP SGDDAT, SBDDAT 
6485 007272 001401 BEQ 14$ 
86 007274 104003 ERROR 3 ; IRR ERROR,GP2 
6487 007276 112711 000254 14$:  MOVB  #MACR,(R1) TREAD ACR 
007302 012737 000377 002124 MOV #377, $GDDAT 
6489 007310 111337 002126 MOVB = (R3). $BDDAT 
6490 007314 023737 002124 002126 CMP SGDDAT, SBDDAT 
6491 007322 001401 BEQ 15$ 
6492 007324 104004 ERROR 4 ZACR ERROR,GP2 
6493 007326 012702 000100 15$: MOV #64. ,R2 
6494 007332 012704 017030 MOV #VBUF RG :VECTOR BUFFER 
6495 007336 012737 000300 002124 MOV #300, $GDDAT [START WITH FIRST VECTOR 300 
649 007344 010437 002122 16$: MOV “VECTOR BUFFER ADDRESS 
6497 007350 011437 002126 MOV (R4) ,SBDDAT 
6498 007354 023737 002124 002126 CMP SGDDAT, SBDDAT 
6499 007362 001401 BEQ 17$ SVECTORED PROPERLY 
6500 007364 104007 ERROR 7 [VECTOR ADDR MEM ERROR 
6501 007366 062737 000004 002124 17$: ADD #4, SGDDAT 
6502 007374 005737 017302 TST KXTFLAG : KXT11 2? 7:GPA 
7400 001407 BEQ 1000$ : BR IF NOT 33GPA 
023727 002124 000400 CMP $GDDAT, #400 + YES, REACHED VECTOR 400 22? ::GPA 
103403 BLO 00$ + NOT YET, CONTINUE 3: 
012737 000300 002124 aed MOV #300, $GDDAT : YES, RESET EXPECTED TO 300 z2GPA 
062704 000002 ADD #384 :NEXT BUFFER ADDRESS sa 
00 302 DEC R [COMPLETED 64 BUFFER ? 
1346 BNE 16$ [CHECK NEXT VECTOR BUFFER LOCATION 
‘THAT WAS STORED BY THE INTERRUPT 
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8-11 
|ENDRDA. P11: 10=DEC=82 14:4 T5 TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 SEQ 0025 
6512 ZSERVICE ROUTINES. 
6514 FERRARA ERE EAE SEERA AAEEEEEAEEAEEEEEREARAREEEEERAEREREEEEE 
(3) TETEST 6 TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 
(3) MeAAAAAAALAALELALALALLLE LETTE TET TTT TTT TPCT Pee Pee e aa 
(2) 007430 000004 i816: | SCOPE 
6515 :BYTE COUNT = 4 
6516 SLEVEL S . O22 
6517 007432 004537 010746 JSR RS,CLRCSR [CLEAR ALL CSRS 
6518 007436 004537 011266 JSR RS. CLRBF CLEAR VECTOR BUFFER AREA 
6519 007442 004537 011456 JSR R5. TRPCAT SRESTORE TRAP CATCHER 
6520 007446 004537 011232 JSR RS. STRVEC 3STORE VECTOR AREA 300-674 
6521 “WITH INT. SERV ROUTINES 
6522 007452 012737 000377 002456 MOV #377. VECVAL SVECTOR MEM FINALS VALU UE 
652 7460 004 011026 JSR RS CLRIRR [CLEAR IRR REGS 
6524 464 012704 017030 MOV #VBUF RG [VECTOR ADDRESS BUFFER 
6525 007470 004537 011064 JSR RS, VECFIL SFILL VECTOR MEMORY FOR GROUPS 1,2 
6526 WITH VECTORS 300-674 
6527 007474 012705 012142 MOV #SETVEC RS : RS POINTS TO COMMON HANDLER. ;;GPA 
6528 007500 013700 002412 MOV DRCSA,RO :GROUP 1 CSR 
6529 7504 013701 002422 MOV DRCSC.R1 :GROUP 2 CSR 
6530 007510 013702 002416 MOV DRCSB.R 
6531 007514 013703 002426 MOV DRCSD.R 
6532 007520 010037 002122 MOV RO, $BDADR sSTORE BUS ADDRESS 
6533 007524 012737 000010 002474 MOV #8. ,LVLSAV [COUNTER FOR 7 LEVELS 
SE BE Teng tse, Cat mm 
6536 ee bososy 2436 CLR INT TFLG ‘CLEAR INT. FLAG 
6537 007546 106427 000000 MTPS PRO 
6 007552 112710 000120 MOVB aSIRR, (RO) :SET ALL IRR BITS 
6539 007556 112710 000241 VB #241 3LMDS7 = ARM THE CHIP 
6540 007562 106427 000300 MIPS #300". 
6541 007566 005737 002436 TST INTFLG [CHECK FOR NO INTERRUPTS 
6542 007572 001401 BEQ 1$ 
6543 007574 104011 ERROR i ZILLEGAL INTERRUPT 
6544 007576 005037 002436 1$: CLR INT FLG 
6545 007602 112711 000201 MOVB <R1) ZROTATING PRIORITY FOR GROUP 2 
6546 007 112711 000040 yy (R1) [CLEAR ALL IMR BITS GP2 
6547 007612 106427 000000 MIPS 4#PR 
6548 007616 112711 000120 MOVB = #SIRR, (R1) SET ALL IRR BITS . 
6549 007622 112711 000241 MOVB #241, (R1) MD57 = ARM THE CHIP 
6550 007626 106427 000300 MIPS #PR :VER:0 
6551 007632 005737 002436 TST INTFLG ie FOR NO INTERRUPTS 
6552 007636 001401 BEQ 2$ 
6553 007640 104011 ERROR 11 TILLEGAL INTERRUPT 
6554 007642 005037 002436 2$: CLR INTFLG 
6555 007646 106427 000000 MIPS  #PRO 
6556 007652 152760 000002 BI! #B1T1,1(RO) :SET INT. ENABLE,EXPECT INTERRUPTS 
6557 007 012737 00 Dosta4 MOV r A SEXPECT 4 INTERRUP 
6558 007 013737 0024 002126 MOV INTFLG,$BDDAT SHOULD HAVE 4 INTERRUPTS 
6559 007674 106427 300 MIPS #PR6  ;VER: 
6560 007700 02 737 002124 002126 CMP S$GDDAT, SBDDAT 
1 007706 1401 BEQ 100$ 
6562 00771 1o401¢ ERROR 12 s INTERRUPT TEST ERRO 
6563 007712 112710 000140 100$: MOVB &#CHPISR,(RO) CLEAR HIGHEST PRIORITY ISR 
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| 
| $564 007716 112710 900120 MOVB  #SIRR, (RO) :SET ALL IRR BITS 

6565 007722 005337 002474 DEC LVLSAV [DONE 8 LEVELS,GROUP 1 
| 6566 007726 001345 BNE [D0 NEXT LEVEL IN ROTATION 
| 6567 007730 112710 000100 MOVB  #CIRR, (RO) [CLEAR IRR BITS GROUP 1 
| 6568 007734 012737 000010 002474 MOV #8. ,LVLSAV [D0 8 LEVELS,GROUP 2 

6569 007742 005037 002436 101$: CLR INTFLG SCLEAR INT FLAG 

6570 007746 106427 000000 MTPS  #PRO 

6571 007752 012737 000004 002124 MOV #4, $GDDAT 

6572 007760 013737 002436 002126 MOV INTFLG,$BDDAT ;SHOULD HAVE FOUR INTERRUPTS 

6573 007766 106427 000300 MTPS  #PR -VER:0 

6574 007772 023737 002124 002126 CMP SGDDAT,SBDDAT 

6575 010000 001401 BEQ 102$ 

6576 010002 104012 ERROR 12 s INTERRUPT TEST ERROR 

6577 010004 112711 000140 102$: MOVB  &#CHPISR,(R1) | :CLEAR HIGHEST PRIORITY ISR 

6578 010010 112711 000120 MOVB  #SIRR,(R1) :SET ALL IRR BITS 

6579 010014 005337 002474 DEC LVLSAV ‘DONE 8 LEVELS? 

6580 010020 001350 BNE 101$ [DO NEXT LEVEL IN ROTATION,GP2 

6581 010022 112711 000100 MOVB = #CIRR, (R1) [CLEAR IRR BITS,GROUP 2 

6582 010026 012737 101750 002124 3$: MOV #101750,$GDDAT :RDY,DIR,I/E,CHIP = 35X 

6583 010034 010037 002122 MOV [CSRA 

6584 010040 011037 002126 MOV (RO) ,SBDDAT 

6585 010044 042737 000007 002126 BIC #7, $BDDAT :CLEAR UNDEFINED BITS 

6586 010052 023737 002124 002126 CMP SGDDAT, SBDDAT 

6587 010060 001401 BEQ 4$ 

6588 010062 104002 ERROR 2 :CSRA REG ERROR 

6589 010064 012737 000350 002124 4$: MOV #350, $GDDAT [STORE EXPECTED 

6590 010072 010137 002122 MOV R1,$BDADR [CSRC 

6591 010076 011137 002126 MOV (Ri) ,SBDDAT ; 

6592 010102 042737 000007 002126 BIC 7,$BDDA ?CLEAR UNDEFINED BITS 

6593 010110 023737 002124 002126 CMP SGODAT, SBDDAT 

6594 010116 001401 BEQ 5$ 

6595 010120 104002 ERROR 2 iCSRC ERROR 

6596 010122 010237 122 5$: MOV R2,$BDADR :CSRB ADDRESS 

6597 010126 005037 002126 CLR $BODAT 

6598 010132 005037 002124 CLR $GDDAT 

6599 010136 112710 000240 MOVB  ¥#MISR, (RO) :READ ISR 

6600 010142 111237 002126 MOVB _ (R2) , $BDDAT 

6601 010146 023737 002124 002126 CMP SGDDAT, SBDDAT 

6602 010154 001401 BEQ 6$ 

6603 010156 104006 ERROR 6 ;ISR ERROR, GP1 

6604 010160 112710 000244 6$: MOVB #MIMR, (RO) [MODE BITS FOR IMR 

6605 010164 111237 002126 MOVB  (R2), $BDDAT 

6606 010170 023737 002124 002126 CMP SGDDAT, $BDDAT 

6607 010176 001401 BEQ 7$ 

6608 010200 104005 ERROR 5 zIMR ERROR,GP1 

6609 010202 112710 000250 7$: MOVB  #MIRR, (RO) ‘MODE BITS FOR IRR 

6610 010206 111237 002126 MOVB = (R2) , $BDDAT 

6611 010212 023737 002124 002126 CMP SGDDAT, SBDDAT 

6612 010220 001401 BEQ 10$ 

6613 010222 104003 ERROR 3 ;IRR ERROR 

6614 010224 112710 000254 10$:  MOVB  #MACR, (RO) SREAD ACR 

6615 010230 111237 002126 MOVB = (R2) , $BDDAT 

6616 010234 023737 002124 002126 CMP SGDDAT, SBDDAT 

6617 010242 001401 BEQ 11$ 

6618 010244 104004 ERROR 4 ZACR ERROR 

6619 010246 010337 002122 11$: MOV R3,$BDADR [CSRD ADDRESS 
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10 $2 112711 000240 #MISR, (R1) ;READ ISR ,GP2 
1025 M1133? 002126 MOVB = (R3), $BDDA 
10 3737 002124 002126 CMP $GDDAT, SBDDAT 
1 1401 BEQ $ 
19 7 104006 ERROR 6 sI1SR ERROR, GP1 
10274 112711 000244 12$:  MOVB #MIMR,(R1) sREAD IMR GP2 
10300 111337 e126 MOVB = (3) , SBDDAT 
10304 023 ? 124 002126 CMP $cDDAT, SBDDAT 
10318 1401 BEQ 13$ 
10314 104005 ERROR 5 :IMR ERROR, GP2 
010316 112711 000250 138: MOVB #MIRR, (R1) ;READ IRR 
0103 111337 9021 6 MOVB = (R3),, $BDDAT 
10326 0237 ? 124 002126 CMP SGDDAT, SBDDAT 
34 0103 1401 BEQ 14$ 
910336 104003 ERROR 3 ;IRR ERROR, GP2 
010340 112711 254 14$:  MOVB #MACR,(R1) SREAD ACR 
010344 111337 002126 MOVB = (R3), $BDDAT 
38 010350 023737 002124 002126 CMP $GDDAT. SBDDAT | 
010356 001401 BEQ 2008 
0 910360 104004 ERROR sACR ERROR, GP2 
010 105010 2008: CLRB (RO) SINIT GROUP 1 MODE BITS 
010364 105011 CLRB  —s- (R11) SINIT GROUP 2 MODE BITS 
010366 012737 101700 002124 MOV #101700,$GDDAT EXPECTED CSRA 
010374 010037 1¢e MOV R ADR SCSRA 
010400 011037 0021 6 MOV (RO), SBDDAT 
010404 0427 ? 002126 BIC #7, $8DDAT :CLEAR UNDEFINED BITS 
910412 737 002124 002126 CMP SAT, SBDDAT 
1042 1401 BEQ 1 
010422 1 g ERROR ZCSRA REG ERROR 
010424 0127 200 002124 201%: MOV #200, $GDDAT SSTORE EXPECTED 
0104 10137 glee MOV R1,$BDADR :CSRC 
010456 011137 1 6 MOV (R1), SBDDAT ; 
91044 ¢ ? 002126 BIC 7, T SCLEAR UNDEFINED SITS 
10450 023737 124 002126 CMP $GDDAT. SBDDAT 
010456 1401 BEQ 15$ 
0104 104002 ERROR 2 :CSRC ERROR 
010462 ot 70 100 15$: MOV #64. ,R2 
10466 12704 0170 MOV #VBUF RG :VECTOR BUFFER 
1047 91 737 00 002124 MOV #300, $GDDAT SSTART WITH FIRST VECTOR 300 
6660 010500 010437 00 1 16$: MOV R4, SBDADR [VECTOR BUFFER ADDRESS 
10504 011437: 126 MOV (R&) ,SBDDAT | 
666¢ 10510 023737 002124 002126 CMP $cDDAT. SBDDAT 
6663 010516 001401 BEQ 17$ sVECTORED PROPERLY 
6664 0105 104007 ERROR 7 SVECTOR ADDR MEM ERROR 
6665 0105 ? 002124 17$: ADD #4, SGDDAT 
6666 105 737 500983 TST KXTFLAG : KXT11 2? rGPA 
6667 0105 1407 BEQ 1 : BR IF NOT 3:GPA 
6668 010536 023727 002124 000400 CMP $GDDAT, #400 + YES, REACHED VECTOR 400 22? ::GPA 
6669 010544 1034 3 BLO 10008 + NOT YET, CONTINUE [:GPA 
6670 010546 012737 000300 002124 MOV #300, $GDDAT : YES, RESET EXPECTED TO 300  ::GPA 
6671 010554 10008: S:GPA 
6672 010554 704 000002 ADD #3.R4 :NEXT BUFFER ADDRESS 
667 910560 302 DEC R [COMPLETED 64 BUFFER CHECKS? 
6674 0105 1346 BNE 16$ :CHECK NEXT VECTOR BUFFER LOCATION 
6675 STHAT WAS STORED BY THE INTERRUPT 
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CNDRDA.P11 —- 10=DEC=82 14:44 TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 SEQ 0028 
6676 ;SERVICE ROUTINES. 
a 
6679 :DON'T REPORT "END OF PASS* UNTIL ALL SELECTED DRV11J'S HAVE BEEN TESTED. 
6680 010564 013701 002412 NXDEV: MOV DRCSA,R1 SINIT TO SETUP DRV11J ADDRESS 
6681 010570 000241 NXDEVI: CLC [CLEAR CARRY FOR DEVIC 
6682 010572 006037 002434 ROR DMAP ‘LOOK FOR NEXT DRVI1J 
6683 010576 001412 BEQ SEOP :BR IF ALL TESTED 
6684 010600 162701 000020 SUB #20,R1 SNEXT DRV11J STARTS -20 FROM PAST CSR 
6685 010604 005237 002202 INC SUNIT SUPDAT UNIT # 
6686 010610 032737 000001 002434 BIT #1,0MAP t1S UNIT SELECTED? 
6687 010616 001764 BEQ NXDEV1 :B 
6688 010620 000137 003132 JMP NEXPAS STEST NEXT DRV11J 
6690 .SBTTL END OF PASS ROUTINE 
(2) 3 3 RRAEAEAAAAARAAAAAAAAAAKEKAAKEKREKAREKAAAAAAAAAAAAAAAEREREEERAEREEEEE 
(1) 3*INCREMENT THE PASS NUMBER (SPASS) 
(1) :*TYPE "END PASS #XXXXX'" (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) :*IF THERES A MONITOR GO TO IT 
(1) :*]F THERE ISN'T JUMP TO START 
(1) 010624 SEOP: 
(2) 010624 000240 
(1) 010626 005037 002102 CLR STSTNM ::ZERO THE TEST NUMBER 
(1) 010632 005037 602160 CLR STIMES t:ZERO THE NUMBER OF ITERATIONS 
(1) 010636 005237 002176 INC SPASS S:INCREMENT THE PASS NUMBER 
(1) 910643 042737 002176 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBE 
(1) 010650 005327 DEC (PC)+ $ LOOP? 
(1) 010652 000001 SEOPCT: .WOR 
(1) 010654 0030¢¢ BGT SDOAGN rrYES 
(1) 010656 0127 MOV (PC)+,a(PC)+  :;RESTORE COUNTER 
(1) 010660 000001 SENDCT: .WORD 1 
(1) 010662 010652 SEOPCT 
(1) 010664 104401 010731 TYPE SENDMG z:TYPE "END PASS #"° 
(2) 010670 015746 002176 MOV $PASS,-(SP) t:SAVE SPASS FOR TYPEOUT 
(2) 010674 10440 TYPDS ':G0 TYPE=-DECIMAL ASCII WITH SIGN 
(1) 010676 104401 010726 TYPE SENUL S:TYPE A NULL CHARACTER 
(1) 010702 013700 000042 $GET42: MOV 8#42,R ::GET MONITOR ADDRESS 
(1) 010706 001405 8 SDOAGN t:BRANCH IF NO MONITOR 
(1) 010710 000005 RESET TI CLEAR LD 
(1) 010712 004710 SENDAD: JSR PC, (RO) 3:60 T 
(1) 010714 et NOP 73 SAV 
(1) 010716 000240 NOP S:FOR 
(1) 010720 000240 NOP S:ACT11 
(1) 0107 3 SDOAGN: 
(1) 0107 000137 JMP acPc)+ RETURN 
(1) 010724 00 SRTNAD: .WORD START 
(1) 
(1) 010726 377 377 000 SENULL: .BYTE 1,1 : *;NULL CHARACTER STRING 
(1) 010731 015 042412 042116 SENDMG: .ASCIZ <15><{2>/END PASS #/ 
(1) 010736 950040 51501 02012 
(1) 010744 00004 
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‘CNDRDA.P11 = 10=DEC=82 14:44 PROGRAM SUBROUTINES 
} 
669 .SBTTL PROGRAM SUBROUTINES 
8 
| 6695 $ SRAAAAAAAAARAAAAAAEAAAAAAAAAAAEAAARARAAAAARAAERERARARAARAREREEREEE 
| 6696 CLEAR ALL CONTROL/STATUS REGISTERS 
6697 s SRRPRRERRAAAEREAETRETEEEEEAARAKEEEAAAAAAEEERAAAAE HERE REA He Te eee 
6698 010746 910046 CLRCSR: MOV RO,=(SP) SAVE 
| 6699 010750 1 é 000300 MTPS #PR6  —;VER: :PSW = 300 
6700 010754 012737 000340 00245 MOV #PVMA,VECVAL INIT VECTOR ADDR MEM = 340 
6701 010762 012737 000300 00245 MOV #300, VECLOC SINIT VECTOR ADDR TO 300 
6702 010770 013700 002412 MOV RCSA,RO SSTART OF CSR ADDRESS 
6703 010774 005037 002124 CLR SGDDAT [CLEAR EXPECT 
6704 011000 005037 002126 CLR SBDDAT [CLEAR REC'D 
6705 011004 005010 CLR (RO) 'CLEAR CSRA;CHIP RESET GROUP 1 
6706 011006 105060 000005 CLRB = 5 (RO) :CLEAR HIGH BYTE CSRB 
6707 011012 005060 000010 R 10(RO) SCLEAR CSRC;CHIP RESET GROUP 2 
67 011016 105060 000015 CLRB =: 15(RO) :CLEAR HIGH BYTE CSRD 
6709 011022 012600 (SP)+,RO SRETURN RO 
6710 011024 000205 RTS R5 
or 
6713 SCLEAR IRR REGISTERS,GROUP 1,GROUP 2 WITH CHIP RESET 
6714 011026 010046 CLRIRR: MOV RO,-(SP) 
6715 011030 013700 002412 MOV DRCSA,RO :START OF CSR ADDRESS 
6716 011034 105060 000011 CLRB =—s-: 11(RO SCSRC TO INPUT MODE 
6717 011040 112760 000001 000001 MOVB #BI1T0,1(RO) :CSRA TO OUTPUT MODE 
gre OItoss fos01e oe tha tea}. EMEP RESET OF GROUPT 
6720 Br 1oee 198000 000010 CLRB —s-: 10(RO) SCHIP RESET OF GROUP 2 
6721 011060 012600 MOV (SP)+,RO SRESTORE REGISTER 
6728 011062 000205 RTS R5 EXIT 
6724 ;ROUTINE TO FILL VECTOR MEMORY FOR VECTOR UNIQUENESS TEST 
6725 : 74 GROUP 1 
6726 7500-674 GROUP 2 
6727 011064 013700 002412 VECFIL: MOV DRCSA,RO ;START GROUP 1 
6728 011070 013701 00241 MOV DRCSB.R1 
6729 011074 01 202 80860 MOV #2,R2 :TwO GROUPS 
6730 011100 01273 002454 MOV #66 VECPAT SVECTOR START 300 
6731 011106 012737 370 002456 1$: MOV #370, VECVAL SSTART VECTOR LEVEL 0,BY4 
6732 011114 012737 10 002466 MOV #8. ,LVLCNT SLEVELS 0-7 
6733 011122 11 710 2456 2s: MOVB —-VECVAL,, (ROD 
6734 011126 01273 002470 MOV #4, BYCNT :D0 FOUR BYTE COUNTS 
6735 011134 113711 454 3$: VECPAT, (R1) [WRITE VECTOR 
6736 011140 005237 902454 INC VECPAT sSETUP FOR NEXT VECTOR 
6737 011144 005737 017302 TST KXTFLAG : KXTI1 2? 3 
6738 011150 001407 BEQ 1000$ : BR IF NOT 3: 
6739 011152 023727 002454 000100 CMP VECPAT, #100 : YES, REACED VECTOR 400 ?? [:GPA 
6740 011160 1034 ; BLO 3 NOT YET, CONTI 33 
6741 011162 012737 000060 002454 MOV #60, VECPAT + YES, WRAP-AROUND TO 300 AGAIN ::GPA 
676 + WE'LL END UP WITH 300-374... ::GPA 
674 t..eREPLICATED 4 TIMES. TIGPA 
6744 011170 1C000$: 33 
6765 911170 005337 002470 YCNT ;DONE FOUR BYTE COUNTS? 
6746 011174 001357 BNE [DO NEXT VECTOR 
6747 011176 005337 002466 4$: LVLCNT SDONE ALL LEVELS IN GROUP? 


SEQ 0029 


-- _— — a nw ee ee eee - -- — —— 
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(CNDRDA.P11 —10=DEC~82 1 OGRAM SUBROUTINES SEQ 0030 
6748 011202 001403 BEQ 5$ 
6749 011204 00525 002456 INC VECVAL ZINC NEXT LEVEL 
/ 6750 011210 000744 BR 2$ [DO NEXT LEVEL 
6751 Oll212 005302 5$: DEC Re [DONE SOTH GROUPS? 
675 O1ie14 001405 BEO 6 DONE EXIT 
6753 011216 013700 002422 MOV DRCSC,RO :D0 GROUP 2 
6754 011222 013701 002426 MOV DRCSD,R1 
6755 011226 00072 BR 1$ 
| 6796 011230 000205 6$: RTS RS ZEXIT 
6758 zROUTINE TO STORE VECTOR AREA 300-674 WITH Lon Bob SERVICE 
6759 011232 012700 000300 STRVEC: MOV #300, RO sSTART AT VECT 
6760 011236 012701 012170 MOV aINTO. R1 FIRST SERVICE R INE 
6761 011242 012702 000100 MOV #64. ,R2 TSTORE 64 SERVICES ROUTINES 
6762 011246 010120 1$: MOV R1, (RO) + 
6763 011250 012720 000300 MOV #300, (RO)+ R:0 
6764 z:GPA ADD #6,R1 ; SETUP rone NEXT VECTOR STORAGE 
6765 011254 062701 000004 ADD #4.R1 : SETUP NEXT VETOR. r:GPA 
6766 011260 005302 DEC R2 SDONE WITH 64 VECTOR ROUTINES? 
6767 011262 001371 BNE 1$ 
6768 011264 205 RTS RS EXIT 
6770 ;ROUTINE TO CLEAR VECTOR BUFFER 
6771 011266 012700 017030 CLRBF: MOV #VBUF RO :VECTOR BUFFER START 
$772 011272 012701 000100 MOV #64. ,R1 
6773 011276 005020 1$: CLR (RO)+ 
Srre SHES SUL me 
6776 OF 1304 000205 RTS Re 
6778 ZROUTINE TO STORE 0-202 INTO BUFFER AREA TO ALLOW 
6779 “VECTOR TESTS TO 0-200. 
6780 011306 005000 TOBUF: CLR RO 
6781 011310 012701 016624 MOV #DBUF ,R1 :BUFFER STAR 
6782 011314 012021 1$: MOV (RODS CRI) # : STORE "n202, INTO BUFFER 
6783 011316 022700 000204 CMP #204 ,RO FINIS 
6784 011322 001374 BNE 1$ 
6785 011324 000205 RTS RS RETURN 
6787 ySTORE BUFFER AREA INTO LOCATIONS 0-202 
6788 SAFTER VECTOR TESTS 
6789 011326 010046 FRMBUF: MOV (SP) :SAVE RO 
6790 011330 010146 R1,-(S 
6791 011332 005000 CLR 
6792 011334 012701 016624 MOV #OBUF ,R1 :BUFFER START 
6793 011340 012120 1$: MOV (R1)+,(RO)* : STORE BUFFER INTO LOCS 0-202 
6794 011342 022700 000204 CMP #204,R0 FINISHED? 
6795 011346 001374 BNE 1$ NO 
6796 01135 013777 002460 170562 MOV SURSAV aswR : STORE LOCATION 176,SOFT SWR 
6797 011356 012601 MOV +,R1 “RESTORE R1 
6798 011360 012600 MOV (3)6R0 SRESTORE RO 
6799 011362 00020 RTS RETURN 


;RESTORE | VECTOR JUST TESTED TO ORIGINAL TRAP FOR 204-1774 
000001 002210 RESTRP: CHP #1 SEM sCHECK FOR APT 


So 
— 
i=) 
Nm 
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6801 
680. 1 
6805 011372 00142 


ne; + eC Cee ee ee et ee +--+ 
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| CNORDA DRV11J DIAG TST PRT2 MACY11 a Ah ng 15=DEC-82 15:26 PAGE 58-17 


“ate 10=DEC=82 14:44 ROGRAM SUBROUTINES SEQ 0031 
011374 032777 010000 170536 BIT  #Sw12,aSwR SCHECK TYPE OF TRAP RETURN 
| ret 011402 001412 BEQ 10$ S RESTORE ILLEGAL VECTOR ROUTINE 
6806 011404 062737 000002 002452 ADD #2, VECLOC RESTOR ET 
6807 011412 013723 002452 MOV VECLOC, (R3)* 310 VECT on 
6808 011416 005013 CLR (R3) SRESTORE HALT 
6809 011420 062737 000002 002452 ADD #2,VECLOC i SETUP FOR NEXT 
6810 011426 D004 12 BR 
6811 011430 012723 011704 10$: MOV #TRPALL, (R3)¢ :RESTORE ILLEGAL TRAP ROUTINE 
6812 011434 900402 BR 11$ SRESTORE P 
6813 011436 012723 011666 1$: MOV #TRPOUT, (R3)¢ ERESTORE | ner SUB TRAP 
6815 011442 012713 000300 11$: MOV #300, (R3) SRESTORE PSW SAVE :VER:0 
6816 011446 062737 000004 002452 ADD #4, VECLOC [UPDATE FOR NEXT VECTOR 
6817 011454 000205 2s: RTS RS RETURN 
6819 sROUTINE TO SET UP TRAP CATCHER 204-1774 IN STANDALONE MODE OR 
6820 OMMON VECTOR ROUTINE SETUP UNDER 
6821 SVECTOR ROUTINE IS USED ONLY IN AN Apr PENVIRONMENT AND WILL STORE 
6822 [A COMMON SUBROUTINE IN VEeTOR AREA 204-1774. 
6824 011456 010046 TRPCAT: MOV RO,-(SP) :SAVE RO 
6825 011460 010146 MOV R1,-(SP) 
6826 011462 022737 000001 002210 CMP #1,SENV 3CHECK FOR APT 
6827 011470 001426 BEQ APTVEC YES, SET UP TRAPS FOR APT 
6828 011472 012700 000204 MOV #204 .RO SSTART CATCHER AT 204 
6829 011476 079777 010000 170434 BIT #SW12,aSwR 3TEST IF Swie IS SET 
6830 011504 0v.010 BNE 1$ SYES,8R AND STORE REGULAR TRAP 
6831 iCATCHERS. .+2,HALT) IN LOCATIONS 
6833 011506 012720 011704 11$: MOV #TRPALL, (RO)+ :NO. PLACE ILLEGAL VECTOR RETURN 
6834 011512 012720 000300 MOV #300, (RO)+ OUTINES IN LOCATIONS 204-1774;VER:0 
6835 011516 022700 002000 CMP #2006,R0 < OTORED ALL VECTORS? 
6836 011522 001371 BNE 11$ 
6837 011524 000421 BR ENDTRP ;RETURN AFTER VECTOR $ TORAGE 
6838 011526 010001 1$: MOV RO,R1 SDRV11J CAN VECTOR 0-17 
6839 011530 005721 TST (Ri)+ 
6840 011532 010120 MOV R1, (RO)+ 
6841 011534 005020 CLR (RO)+ 
6842 011536 022701 001776 CMP $776, R1 :CHECK FOR VECTOR END 
6843 011542 001371 BNE 1$ 
6844 011544 000411 BR ENDTRE. ;RETURN IN STAND ALONE MODE 
6845 011545 012701 000204 APTVEC: MOV #204,R [STARTING VECTOR ADDRESS 
6846 011552 o1e721 011666 1$: MOV aRPout (R1)# SILL INTERRUPT ROUTINE 
6847 011556 012721 000300 MOV 00, (R1)+ :PSW NEXT: V 
6848 011562 022701 002000 CMP a 2006.81 R1 DONE? 
6849 011566 001371 BNE [DO NEXT VECTOR 
6850 011570 012601 ENDTRP: MOV ISpye, R1 
6851 011572 012600 MOV (SP)+-RO 
685 011574 000205 RTS R5 EXIT 
6854 INTERRUPT SERVICE {ROUTINE USED TO VERIFY INTERRUPTS 204-1774 
6855 011576 005237 002436 INTSR1: INC Int FLG, :COUNT INTERRUPT 
6856 911602 oie 37 1 002124 MOV ‘STORE EXPECTED 
6857 011610 013737 0024 002126 MOV Hag [SAVE INT. COUNT 
6858 011616 023737 002124 002126 CMP GDDAT SBDDAT :SHOULD BE ONE INTERRUPT 
6859 011624 001401 BEQ 





+ eS CS SS 
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| 6860 011626 104013 

| 6861 0116 

oees 
6864 
6865 011632 005237 002436 
6866 011636 013737 002472 
6867 011644 013737 002436 
6868 011652 023737 002124 
6869 011660 002001 
6870 011662 104013 
6872 011664 000002 
6873 
6874 
6875 011 011637 002120 
6876 011672 004537 011326 
6877 011676 104014 
6878 011700 000000 
6879 011702 000000 
6880 
6881 
6882 
6883 011704 011637 002120 
6884 011710 104014 
6885 011712 
6886 
6887 
6888 011714 022737 000001 
6889 011722 001405 
6890 011724 012723 012122 
6891 011730 012713 000300 
6892 011734 000404 
6893 011736 012723 011666 
6895 011742 012713 000300 
6896 011746 062737 000004 
6897 011754 000205 
6898 
6899 
6900 
6901 
6902 011756 010046 
6903 011760 017737 170154 
6904 011766 022737 000001 
6905 011774 001411 
6906 011776 005000 
6907 912000 01 720 912122 
6 12004 0127 3 
6 912010 022700 204 
6910 012014 001371 
6911 912016 000410 
$318 019092 O12700 011 
6914 $15036 61 36 Bo0s80 


MACY11 


002210 


002452 


002460 
002210 
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PROGRAM SUBROUTINES 


yee 13 MULTIPLE a RECEIVED 
1$: RETURN FROM INT 


Fh egy ot gy oi ont ioe USED TO VERIFY Pinko f 204-1774 
FOR A BY 2 oe COUN ' oF Tr 1 10 4 VECTORS IN VECTOR A MEMORY. 


iNTBY4: ;COUNT IN CERRUPY 
BYNUM, SGDDAT 3 STORE EXPECTED 
MOV Mie SBDDAT € INT. COUNT 
CHP $0047; *SBDDAT INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 
ERROR 13 sMULTIPLE INTERRUPTS RECEIVED 
*MORE INTERRUPTS THAN BYTE COUNT 
1$: RTI SRETURN FROM INT. 
>COMMON ILLEGAL VECTOR RETURN ROUTINE FOR APT MODE. 
TRPOUT: MOV (SP) , $GDADR ZSAVE ADDRESS OF TEST 
JSR R5, FRMBUF SRETURN LOCATIONS 0-202 
ERROR 14 SILLEGAL VECTOR ADDR MEM ERROR 
HALT ‘CANNOT CONTINUE 
HALT :CANNOT CONTINUE 
COMMON, ILLEGAL VECTOR RETURN ROUTINE FOR VECTOR AREA 
TRPALL: MOV (SP) ,SGDADR zSAVE PC OF TEST 
ERROR 14 SILLEGAL VECTOR ADDR MEM ERROR 
RTI RETURN 
;RESTORE VECTOR Just TESTED TO ERROR SUBROUT INE FOR 0-202 
RES200: cP #1,SENV sCHECK FOR AP 
MOV #TRP200, (R3)+ crhROR TRAP SUB. FOR 0-200 
MOV #300, (RS) :PSW: VER: 0 
BR RETURN 
1$: MOV #TRPOUT, (R3)¢ RESTORE APT SUB TRAP 
MOV #300, (R3) SRESTORE PSW SAVE; VER:0 
2s: ADD #4, vECLOC SUPDATE FOR NEXT VECTOR 
RTS RS RETURN 


sROUTINE TO SET UP TRAP SUBROUTINE 0-200 IN STANDALONE MODE OR 
3A COMMON ERROR VECTOR ROUTINE SETUP UNDER APT. 


CAT200: MOV RO,=(SP) ZSAVE RO 
MOV aSUR. SURSAV + SAVE LOCATION 176,SOFT SwR 
CMP #1, $€ SCHECK FOR APT 
BEO APtSO0. SVES,SET UP TRAPS FOR APT 
CLR SSTART CATCHER SUB AT 0 
1$: MOV #TRP200, (RO)+ :STORE VE TOR TRAP SUBROUTINE 
MOV #300, (RO)+ PSW:V 
CAP #204, R0 ‘FINISHED 0-202 
BR END200 ;RETURN IN STAND ALONE MODE 
APT200: CLR RO ;START AT VECTOR 0 
1$: MOV #TRPOUT,(RO)+ VECTOR ERROR ROUTINE 


MOV #300, (RO)+ PS NEXT; VER:0 


SEQ 0032 


3 
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s 


; CHECKED AFTER tt INTERRUPTS. 
INT1: 438 PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 


INT2: SR PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INT3: SR PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INT4: SR PC,(R5S) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INTS: SR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INT6: 


~N 
— 
w 


ms 


soeeereeeess 
seeeseeseeses 
ASARAOM 


Aan 

ESS 

w 
Soooooooooecco 


Nh 
Mew 
qj 
“wn 
DR 

. 

. 

3 
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PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN 


‘CNDRDA.P11 —- 10=DEC=82 14:44 PROGRAM SUBROUTINES SEQ 0033 
6916 012032 022700 000204 CMP #204,R0 DONE? 
6917 012036 001371 BNE 1$ :DO NEXT VECTOR 
6918 912040 012600 END200: MOV (SP)+,RO 
6919 012042 012713 012056 MOV a INTSRS (R3) STORE VECTOR ROUT INE 
6920 012046 012763 000300 000002 MOV #300,2(R3) SSTORE PSW:VER:0 
6321 012054 000205 RTS R5 EXIT 
| 692 
| 6924 s INTERRUPT SERVICE ROUT INE USED TO VERIFY INTERRUPTS 0-200,.8YTE COUNT 0-3 
| 6925 ‘FOR BYTE COUNTS OF 1 TO 4 VECTORS IN VECTOR DRESS MEMORY. 
6926 012056 005237 002436 inTSRs: INC LG sCOUNT INTER RUPT 
| 6927 012062 013737 002472 002124 MOV BYNUM,SGDDAT STORE EXPECTED 
| 6928 012070 013737 002436 002126 MOV INTFLG, $BDDAT ‘SAVE INT. COUNT 
| 6929 013076 023737 002124 002126 CMP SGDDAT.SBDDAT :INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 
| 6930 012104 002005 BGE 
6931 012106 004537 011326 JSR RS, FRMBUF ZRESTORE 0-202 BEFORE ERROR 
| 6932 012112 104013 ERROR 13° [MULTIPLE INTERRUPTS | RECEIVED 
693 [MORE INTERRUPTS THAN BYTE _Count 
6934 012114 004537 011756 JSR RS,CAT200 SRESTORE VECTOR SUBROUT I 
6935 012120 000002 1$: RTI [RETURN FROM INT 
6937 : COMMON ILLEGAL VECTOR ERROR RETURN ROUTINE FOR 0-200 
6938 012122 011637 002120 TRP200: MO (SP) ,SGDA sSAVE PC OF TEST 
6939 012126 004537 011326 ask Re FRmeure $RETURN LOC 0-200 
6940 012132 104014 ERROR 14 TILLEGAL VEC)" ADDR MEM ERROR 
6941 012134 004537 011756 JSR R5S,CAT200 ;RESTORE VECTOR SUBROUTINES FOR PROCEED 
59%¢ 012140 000002 RTI RETURN 
69446 ZVECTOR SERVICE ROUTINE FOR VECTOR UNIQUENESS TEST 
6945 * SETVEC: MOV (R5)+, (RG)+ s STORE VALUE IN BUFFER :;:GPA 
6946 012142 017624 000000 SETVEC: MOV a(sP), (Rane ¢ STORE VECTOR NUMBER IN BUFFER ::GPA 
6947 012146 0057 TST (SP)+ SRESTORE STACK FOR RTI 
6 912150 0052 002436 INC INTFLG ‘COUNT INTERRUPT 
6949 012154 022737 000100 002436 CMP #64. INTFLG 
6950 012162 002001 BGE 1$ 764 EXPECTED INTERRUPTS? 
6951 012164 104013 ERROR 13 TERROR ,MORE THAN 64 INTERRUPTS 
699 012166 000002 1$: RTI SRETURN FOR NEXT INTERRUPT 
6954 j INTERRUPT SERVICE ROUTINES THAT ARE STORED FROM 300-674 
6955 [IN THE VECTOR UNIQUENESS TEST 
6956 3 RS POINTS TO “'SETVEC:’* DURING TESTS 5 AND 6, AND CALLS 73GPA 
695 > CHANGED F "JSR RS,SETVEC’’ TO JSR PC,(R55"* TO CONSERVE 3iGPA 
6958 SPACE AND REMAIN UNDER 4kW TOTAL PROGRAM : 73GPA 
6959 012 715 inShe SR PC, (RS) STORE INTO VBUF,TO BE 7:GPA 


1 3 
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/CNDRDA.P11 10=DEC=82 14:44 PROGRAM SUBROUTINES SEQ 0034 


| 6972 012222 000330 330 
oot? ae Cont? INT?: ri PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
| oor? Oise Bont} INT8: $f PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
2444 Oissee geet? INT9: 3 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
pete 8 1sse9 poe tt> INT10: 45R PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
| e444 Bisse? erty INT11: 458 PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
| oor OiSse5 nt AF INT12: 138 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
one? O1S$2e goat? INT13: ri PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
yes14 Bisse oot INT14: 5h PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
oN Oissee Oonet? INT15: 3 PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
yea Orgs ere INT16: 138 PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
oon? Bissee AE INT17: ix? PC,(R5) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
4444 Oise Oper te INT18: {38 PC,.(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
44.44 BIS goat? INT19: i? PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
44) OSes 73 INT20: : PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
aid sus so INT21: 138 PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
er ot 322 seth INT22: : " PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
ee BIS t5¢ Bon! t INT23: i? PC,(RS? ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
os Oise so AES INT24: {73 PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
a's ¢4 Oissee Gos7i3 INT25: i? PC,(R'5) ; VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
ah ot pete INT26: 138 PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
7018 ie Dosis INT27: : r PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
ee 019350 OS INT28: iss PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
701? Hy 54 Goc7i3 INT29: i? PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
aah 1 715 INT30: 138 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
1 : 4k, INT31: i “ PC,(RS5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
= HY Hi 4k INT32: 358 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
7036 Bt she 73 INT33: g3n PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
0124 004715 INT34: JSR PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 


—_—___—— 
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CNDRDA.P11 10=DEC=82 14:44 PROGRAM SUBROUTIN SEQ 0035 

7028 012402 000510 510 

ais Hy the Bpert? INT3S: 2 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

re at ci9 sit Oks INT36: i3h PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7038 gisele 004715 INT3?7: 338 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

70 012416 000524 4 

7035 Biss 0 004715 INT38: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7036 012422 000530 530 

7037 Bist 4 004715 INT39: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7038 012426 000534 34 

7039 0124 004715 INT4O: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 

7040 012432 000540 540 

7041 Bist 004715 INT41: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7042 0124 000544 44 

70435 012440 004715 INT42: JSR PC,.(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7044 012442 000550 550 

7045 012444 004715 INT43: JSR PC.(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
012446 000554 554 

7047 012450 004715 INT44: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7048 012452 000560 560 

7049 012454 004715 INT45: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7050 012456 000564 564 

7051 012460 004715 INT46: JSR PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 

705 462 000570 570 

705 464 004715 INT47: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

088 270 $0n778 INT48 36h PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RTN GPA 

7036 O15472 000600 00 

ig t4 sere 004715 INT49: i38 PC,(R5S) ; VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7059 715 INTSO: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 

7060 sg a 610 

7061 Reece INTS1: tr PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 

7068 004715 INTS2: 138 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 

7065 004715 INTS3: JSR PC.(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 


= 


FASAR 
oa 
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INTS4: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
INTSS: 138 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
INTS6: JSR PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INTS?: ish PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
INTS8: JSR PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
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ESSERE ONS ERS ESSN 
ESese 
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Soooooooooooooooooooooooooocooooo 
kt ak oh oh Sh I 


0006 0 

‘5 INTS9: ; ? PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 
23 15 INT60: 158 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
332 1 INT61: i3¢ PC,(RS) ; VECTOR UNIQUENESS TEST, INT. SERV RIN ;;GPA 


a 
w 


INT62: JSR PC,(RS) ;VECTOR UNIQUENESS TEST. INT. SERV RIN ;;GPA 





poe er 


DRVI1J DIAG TST PRT2 
Pil 10=DEC=82 14:44 
012562 0 

Oise 004715 

012566 

012570 001 376 
012572 002 75 
012574 004 73 
012576 010 367 
012600 020 357 
012602 040 337 
012604 100 277? 
012606 200 177 
012610 000000 


ee er eee ne = | ee ee | ee. - 
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ROGRAM SUBROUTINE 


670 
INT63: +74 PC,(RS) ;VECTOR UNIQUENESS TEST, INT. SERV RTN 


» SBTTL PATTERNS FOR REGISTER R/W 


PATTERNS USED FOR LOADING/READING REGISTERS 
Z1SR INTERRUPT SERVICE REGISTER 

z IRR INTERRUPT REQUEST REGISTER 

2 IMR INTERRUPT MASK REGISTER 


BGCHP3: BYTE 1,376 
-BYTE 


Y 2,375 
“BY 4,373 

“BY 10, 367 

. 20.357 

‘ “BYTE 40,337 


EDCHP3: 000000 


ZiGPA 


SEQ 0036 


on eee 


. 2 
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'CNDRDA.P11 »—s-: 10=DEC=82 14:44 SYSMAC ROUTINES SEQ 0037 
7107 .SBTTL SYSMAC ROUTINES 
7109 .SBTTL TYPE ROUTINE 

(2) FERRARA AAAHAA AERA AEAAAAAAAEAEAAAAAAEAAEEEEEAAERAEEEEEAEAAEEEE 

(1) : ROUTINE TO TYPE asclz HESSAGE . MESSAGE MUST TERMINATE WITH A 0 BYTE. 

(1) *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

(1) s*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE. FILLER CHARACTER. 

(1) 3 *NOTE : SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

a8 s*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
:* 

(1) 3*CAL 

(1) 31) USING A TRAP INSTRUCTION 

$4 “OR YPE »MESADR szMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 

(1) 3* TYPE 

(1) 3* MESADR 

a) " 

(1) 012612 105737 002157 $TYPE: TSTB  $TPFLG 3318 THERE A TERMINAL? 

(1) 012616 100002 BPL 1$ 

(1) 012620 000090 HALT S:HALT HERE IF NO TERMINAL 

(1) 012622 000430 BR 3$ 3 sLEAVE 

(1) 012624 010046 1$: MOV RO,-(SP) SSAVE RO 

(1) 012626 017600 000002 MOV a2(sP),RO t:GET ADDRESS OF ASCIZ STRING 

(1) 012632 122737 000001 002210 CMPB = WAPTENV,SENV =»; ;RUNNING IN 

(1) 012640 001011 BNE [NO,GO CHECK FOR APT CONSOLE 

(1) 019648 132737 000100 002211 BIT8 § #APTSPOOL,SENVM $3 SPOOL ME SSAGE TO APT 

(1) 012650 001405 BEQ 62$ GO CHECK CONSOLE 

(1) 012652 010037 01266 MOV RO,61$8 SOP EOP AE SSAGE ADDRESS FOR APT 

(1) 012656 004737 01310 JSR PC. SATY3 $3 SPOOL MESSAGE TO APT 

(1) O12 61$: .WORD 0 S:MESSAGE ADDRESS 

(1) 01 132737 000040 002211 62$:  BITB §$#APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 

(1) 012672 001003 BNE 60$ t:YES,SKIP TYPE our 

(1) 012674 11204 28: MOVB = (RO) +, =( SP) 33PUSH CHARACTER T 0 BE TYPED {ONTO STACK 

(1) 012676 00100 BNE 4$ :BR IF IT ISN'T THE T 

(1) BIg OS 005726 TST (SP)+ IF a age POP IT OFF uM STACK 

(1) 012702 012600 60$: MOV (SP) RO S:RESTORE R 

(1) 012704 060716 000002 3$: ADD 2, (SP) 3 ADJUST RETURN PC 

(1) 012710 00000 RTI 

(1) 12712 155738 000011 4$: CMPB #HT, (SP) : {BRANCH IF <HT> 

(1) 012716 0014 BEQ 

(1) 01 720 122716 000200 C #CRLF, (SP) ::BRANCH IF NOT <CRLF> 

(1) 012724 001006 BNE 

(1) 012726 005726 TST (SP)+ : POP <CR><LF> EQUIV 

(1) 0127 04401 TYPE S:TYPE A CR AND L 

(1) 0127 002165 SCRLF 

(1) ou 734 105037 013070 CLRB  $CHARCNT Z:CLEAR CHARACTER COUNT 

(1) 012740 755 BR 2$ t:GET NEXT CHARACTER 

(1) O1274e 737 013024 5$: JSR PC STYPEC *:G0 TYPE THIS CHARACTER 

(1) 01 746 1 3726 2156 é$: CMPB FILLC.(SP)*  3:1S IT TIME FOR FILLER CHARS.? 

(1) 1275 13 BNE t:1F NO GO GET NEXT CHAR. 

(1) 012754 013746 002154 MOV SNULL,-(SP) S:GET # OF FILLER CHARS. NEEDED 

(1) S:AND THE NULL CHAR, 

(1) gr 760 105 000001 7$: DECB 2S s«AAC SP) +:DOES A NULL NEED TO BE TYPED? 

(1) 012764 002770 BLT 6$ [:BR IF NO--GO POP THE NULL OFF OF STACK 





: m 3 
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P 4 TYPE ROUTINE 


RDA DR 
CNDRDA.P11 =: 10=DEC=82 14:4 SEQ 0038 
| (1) 012766 004737 013024 JSR PC, STYPEC 3:G0 TYPE A NULL 

(1) 012772 105337 013070 DECB = SCHARCNT $:D0 NOT COUNT AS A COUNT 

a 012776 000770 BR 7$ LOOP 

(1) sHORIZONTAL TAB PROCESSOR 

(1) 013000 112716 000040 8$: moves #"_—_, (SP) ::REPLACE TAB WITH SPACE 

(1) 013004 004737 013024 9$: JSR PC, $TYPEC t:TYPE A SPACE 

(1) 013010 132737 000007 013070 BIT8 #7. $CHARCNT ::BRANCH IF NOT AT 

(1) 013016 001372 BNE 33 STOP 

(1) 013020 005726 TST (SP)+ [:POP SPACE OFF STACK 

(1) 013022 000724 BR 2$ ::GET NEXT CHARACTER 

(1) 013024 105777 167120 STYPEC: TSTB a$TPS S:WAIT UNTIL PRINTER IS READY 

(1) 013030 100375 BPL STYPEC 

(1) 013032 116677 000002 167112 MOVB 2(SP), a$1PB ::LOAD CHAR TO BE TYPED INTO DATA REG. 

(1) 0130460 122766 000015 000002 cMPB #CR,2(SP) z1S CHARACTER A CARRIAGE RETURN? 

(1) 013046 001003 BNE 1 38 F 

(1) 013050 105037 013070 CLRB $CHARCNT S:YES==CLEAR CHARACTER COUNT 

(1) 013054 000406 BR STYPEX SIEXI 

(1) 013056 lee766 000012 000002 1S: CMPB Ss ML, 2( SP) t:1S CHARACTER A LINE FEED? 

(1) 013064 00140 BEQ STYPEX ::BRANCH IF YES 

(1) 013066 105227 INCB = (PC) + [:COUNT THE CHARACTER 

(1) 013070 000000 SCHARCNT:.WORD 0 S: CHARACTER COUNT STORAGE 

(1) 013072 000207 STYPEX: RTS PC 

i 

7110 .SBTTL APT COMMUNICATIONS ROUTINE 

(2) ° g REATAAAAAAAAAAAAEAAEAEAATAATEATEKAAETAAAAAEAARARAARARAAERAEEAEEEEEAEREE 

(1) 013074 112737 000001 013340 $ATY1: MOVB #1,$FFLG ::TO REPORT FATAL ERROR 

(1) 013102 112737 000001 013336 SATY3: MOVB #1.$MFLG ':TO0 TYPE A MESSAGE 

(1) 013110 000403 BR SATYC 

(1) a3129 112737 000001 013340 SAT YG: MOVB = #1, SFFLG z:TO ONLY REPORT FATAL ERROR 

(3) 013120 010046 MOV RO,-(SP) z;PUSH RO ON STACK 

(3) 013122 010146 MOV R1.=(SP) +PUSH R1 ON STACK 

(1) 013124 105737 013336 TSTB 0s SMFLG t:SHOULD TYPE A MESSAGE? 

(1) (0131 001450 BEQ 4 s:1F NOT: BR 

(1) 013152 it 000001 002210 CMP WAPTENV,SENV §  ;OPERATING UNDER APT? 

(1) O13142 1 o 000100 002211 BITB  #APTSPOOL,SENVM ;:SHOULD SPOOL MESSAGES? 

(1) 013150 001425 BEQ s:1F NOT: BR 

(1) 013152 917600 MOV a4(SP).RO 3:GET MESSAGE ADDR. 

(1) 131 6 000004 ADD #2,4(SP) 7;BUMP RETURN ADDR. 

(1) 13166 737 0021 1$: TST SMSGTYPE z2SEE IF DONE W/ LAST XMISSION? 

(1) 913170 1375 BNE 1 S:1F NOT: WAIT 

(1) (0131 10037 002204 MOV RO, SMSGAD 

(1) :;PUT ADDR’ IN MAILBOX 

(1 1 17 105720 2s: iste (RO)+ z2FIND END OF MESSAGE 

(1) 013202 163700 002204 SUB SMSGAD RO ::SUB START OF MESSAGE 

(1) 01 06 ASR R T:GET MESSAGE LNGTH IN WORDS 

(1) 013210 01 002206 MOV RO, SMSGLGT $PUT LENGTH IN MAILBOX 

(1) 013214 012737 002170 MOV #4. SMSGTYPE t:TELL APT TO TAKE MSG. 
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CNDRDA.P11 =: 10=DEC=82 14:44 COMMUNICATIONS ROUTINE SEQ 0039 
(1) 013222 13 BR Se 
013204 01765 000004 013250 38: MOV a4(SP) ,4$ :3PUT MSG ADDR IN JSR LINKAGE 
013232 06@ 66 900002 000004 ADD 4 4(SP) : BUMP RETURN ADDRESS 
013240 01 24g 7 776 MOV 177776,=(SP) PUSH 199776 ON STACK 
013244 00473 br364 JSR PC, $TYPE S:CALL TYPE MACRO 
913250 4S: ~WORD 0 
$1 3585 105737 013340 10$:  TSTB  $FFLG 33 SHOULD REPORT FATAL ERROR? 
013256 00141 BEQ 12$ s1F 
013260 005737 002210 TST SENV $I RUNNING UNDER APT? 
013264 001413 BEQ 12$ F NOT: BR 
013266 005737 002170 11$: ‘TST SMSGTYPE £3 INISHED LAST MESSAGE? 
013272 001375 BNE 11$ sIF NOT: WAIT 
013274 017637 000004 002172 MOV a4(SP),SFATAL = 2GET ERROR # 
013302 062766 000002 000004 ADD #2,4(SP) *BUMP RETURN ADDR. 
013310 0052 902170 INC SMSGTYPE s:TELL APT TO TAKE ERROR 
013314 105037 013340 12$:  CLRB  $FFLG S:CLEAR FATAL FLAG 
013320 105037 013337 CLRB ~—s SLFLG [:CLEAR LOG F 
013324 105037 013336 CLRB Ss SFL T:CLEAR MESSAGE FLAG 
013330 012601 MOV (SP)+,.R1 i STACK INTO R1 
013332 012600 V (SP)+,RO ::POP STACK INTO RO 
013334 0002 TS PC + RETURN 
013336 0 SMFLG: .BYTE 0 tIMESSG. FLAG 
013337 000 SLFLG: .BYTE 0 
>;LOG FLAG 
013340 013908 SFFLG: .BYTE 0 ZFATAL FLAG 
0200 APTSIZE=200 
1 APTENV= 
000100 APTSPOOL=100 
0 APTCS 
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UP=040 
-SB8TTL BINARY TO OCTAL (ASCII) AND TYPE 


rit iti itiriiririiiitiyy 
:STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 

1 pilierenss HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


s*$TY 

*( 

* * MoV NUM, =-(SP) s NUMBER TO BE TYPED 

* TYPOS 3:CALL FOR TYPEOUT 

* -BYTE WN z3N=1 TO $ FOR NUMBER OF DIGITS TO TYPE 
* -BYTE 33M=1 OR 

* 1=TYPE LEADING ZEROS 

‘° + SO=SUPPRESS LEADING ZEROS 


;* seer oe trebac HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
oH OR $TYPO 


el ee ee ee ee ee el eh eB IN) me ee ee et me ek LL ek et ed ee ed ee ed ed ed aed ed ed ad (pd od 
0 


* MOV NUM, =(SP) 7;NUMBER TO BE TYPED 
:* TYPON z2CALL FOR TYPEOUT 

{sSTYPOC~=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
i* MOV NUM, =(SP) NUMBER TO BE TYPED 
:* TYPOC z;CALL FOR TYPEOUT | 








CNDRDA DRVI1J DIAG TST PRT2 
CNDRDA.P1 0 8 


™N 
ELBE LLLP PPP OA PAPAL LL LLL Pe ey Fe Pe Pe 


IN ee et ee se ss — a = = Ss ss Ss Ss SS Ss SS Ss Ss SS SS SH SS SS Sh SP SS SH Ht Ss SS SS SH SS BS SH Ss SS SS SS SS SS BH YH 


ee a a ee ee er er er er er ee er er a a a ae a a ee YY YY YY SY SY ee 


1 
1 


FRFKELERELELEREER EEL LS 
Free f&vor 
SL==SS 


ONSEROSENSAROR 


SEVNSNANKELVS 


PAMAAMAAAUVIUIVIUMUIUT 


Sree 
BNO 


Se 
ab eee med wd 


FAVSS 


SOOCOSOSSOSSOSSSOSSOSSSooooooooooooooooooooooooooooeoseo 


WWAWWAWWAAWAAAAANAAAWAAIAIAIAWW 
PAPA 


RS. 


par ar er Pert 
WESSRES 
= For 

- 


EC- 


—--—-0O 

— oy 
MIIA 
ae 
OrnNo 


zs 
SSE 


=—O00——— 
yO 
AAO 


iw 
, al 


SeSac 
SosSsuses 


SoSess5 
= 
So 
Wi a oe 
—WNOooodoe 
RWANWW 


So-anoooor 
Eee 


So 


z 

= 

Wo 
NNN NWW ew 


Ss 
Paty eet 
£2eS 


So 
w 


oo 
Saees 


: 


Esse 


2 14:44 


001 013565 


013566 
177770 


000002 000004 


MACY11 30(1046) 
BINARY TO OCTAL (ASCII) AND TYPE 


STYPOS: 


STYPOC: 
STYPON: 


1$: 
2$: 


3$: 


4$: 
5$: 


7$: 


6$: 


SOCNT: 
SOF ILL: 


4 
15=DEC-82_ 15:26 PAGE 59-7 


MOV 
v8 


-BYTE 
-BYTE 


a(SP) ,-(SP) 


1(SP) SOFILL 
(SP) +, $OMODE 


bat 
22S 
wen 


tit 


(SP)+, (SP) 


33PICKUP THE MODE 
+ sLOAD ZERO FILL SWITCH 
sNUMBER OF DIGITS TO TYPE 


ADJUST RETURN ADDRESS 
s3SET THE ZEnO FILL mm 
33SET FOR S1X(6) DIGITS 
38 HW Ab ITERATION COUNT 
Heh ve R4 
SAVE _RS5 
SIGET THE NUMBER OF DIGITS TO TYPE 


4 ye IT FOR MAX. ALLOWED 
FOR USE 


sSAVE_IT 
33GET THE ZERO FILL SWITCH 
sPICKUP_THE INPUT NUMBER 


7:CLEAR THE OUTPUT WORD 
5 OT Nee. INTO *'C’* 


77FORM THIS DIGIT 


GET LSB OF THIS DIGIT 
iITYPE THIS DIGIT? 


R_IF NO 
:3GET RID OF JUNK 


He pea THIS 0? 
33DON'T_ SUPPR coy roe 0's 
:iSAVE FOR TYPIN 
TYPE A DIGIT 
: BR 14 MORE TO DO 
F DONE 


¢ INSURE ad ani’st ISN'T A BLANK 
2360 FO IMs A T DIGIT 


ssRESTORE R3 
33;SET THE STACK FOR RETURNING 


RETURN 
STORAGE FOR asthe DIGIT 
a3 eT OR FOR TYPE ROUTINE 
CTAL DIGIT COUNTER 
$E2ERO- FILL SWITCH 
OF aie TO TYPE 


E: .WORD : NUMBER 
~SBTTL CONVERT BINARY TO pecimat’ AND TYPE ROUTI 


FRAAAAAAHAAAAAAAAEAAAAA TAKA AKAAKAAAAAAAAAAAEAERAAAAEAARAEARAREEEE 


:STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


SEQ 0040 


[——-—- -- er 


| 
|CNDRDA DRV11J DIAG TST PRT2 
CNDRDA.P11 10=DEC=82 14:44 


~~ 
—_ 
— 


57 


3 


moo 
STAAAAAO 


WWW 
MM 
wh at SS 
NOSSS 
RRERS 


020200 
000020 


=-COooo000o 
So 


us 
SOF 


000055 


5 
2 
398 rca 
4 000040 


RRROOS OAD 
SVORARVRVOO RNS 


SSN 


013774 


SSOLE ES, 
VIM 
SNOALOS 
SSa2 
SSINRS 
Soonooo 


zs 


~N 


ete 
3 


Suse RSS 
=9e2es33 


000060 
000040 


art Ty ey 


000010 


=) 
Nm 
NS 


NORNO 


38 


: 
5 
: 
5 
3 
? 
sing 000001 
: 
: 


LS) 
= 
So 
— 
So 


RUEOSO 
3s 
vw 

Sas w 
=A 


Sesee 


[=] 


177777 


rm, 
C3 
part 


ee een 


Rg 
= 
o 
= 


14004 
2 


LEB POP PR PRO OOO ORO BOLO BR LBA PAP ALA PPP PPL LLL Py PO Fe Fe Pe Pe 
ON a ak ak dk kd dd dk ed ek ad dk dd ad ad od od od = = WW WWII ot ot ot 
et et et et a et a et et a er et a a et a a er at a a a a a a a a a a a ae ae a a SI SI SS a 


SOOOOSOOCSSOSSSSSSSSoooSoooooooooooooooooooooooooooo 
kk kd kd dd od oh oh oh oh oo 


WWWNWWNAWN NNN ANA AAANAAIAWG 


SN NNN NSN NNN NNN SSS 


ww 
FUSS 
o-ooo°o0 == 


: 


MACY11 


000001 


177777 


177776 


000004 


30( 1046) 


3*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
ER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN 
E THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a WITH SPACES. 


3 *NUMB 
3*BEFOR 
te 


STYPDS: 


1$: 


23: 
3$: 


4$: 


5$: 


15=DEC=82 15:26 PAGE 59-8 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV 
TYPDS 


NUM, =(SP) 


#°=,1(SP) 
R 


#SDBLK,R3 
a , (RS) 


ht + Naa te 
ai eR 


(SP)+ 


33PUT_THE BINARY NUMBER ON THE STACK 
33:G0 TO THE ROUTINE 


3zPUSH RO ON STACK 

33;PUSH R1 ON STACK 

3:PUSH R2 ON STACK 

33PUSH a ON STACK 

3:PUSH RS ON STACK 

37SET BLANK SWITCH AND SIGN 
36st THE I a 


3;SETUP THE OUTPUT POINTER 

szSET THE FIRST CHARACTER TO A BLANK 
3:CLEAR THE BCD NUMBER 

33GET THE CONSTANT 

Tid THIS BCD DIGIT 

3; INCREASE THE BCD DIGIT BY 1 


33ADD BACK THE CONSTANT 
ae a BCD DIGIT=0 


FALL THROUGH IF 
gsstith pOINS LEADING 0°S? 


T 
3 THIS CHAR 
33JUST INCREMENT 
33 THE TABL 


; 0 ASCII 
z2WAS THE LSD THE FIRST NON-ZERO? 


SIYES=-SET THE SIGN FOR TYPING 
?:SET THE TERMINATOR 


eae3e: 


YPE THE 
ADJUST THE STACK 


WILL BE TYPED 


SEQ 0041 
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CNDRDA.P11 |: 10=DEC=82 1 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0042 

(1) 013770 012616 MOV (SP)+, (SP) 
(1) 013772 9900 92 RT s RETURN TO USER 
(1) 013774 0234 $DTBL: 10 00. 
(1) 013776 001750 1000. 
(1) 014000 000144 100. 
(1) 014002 000012 10. 
(1) 014004 000004 SDBLK: .BLKw 4 

7113 OBTTL ERROR HANDLER ROUTINE 
(2) FRRAAAAAAAARAAAARAERERATAE EA AAERERERARAAAAEREAEAAAERERAERAAREEE EEE 
(1) TSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) 3 *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) "*AND GO TO SWRCK ON ERROR 
(1) [*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) 7*SW15=1 HALT ON 
(1) 2*SW13=1 INHIBIT ERROR TYPEOUTS 
(1) 7*SW09=1 LOOP ON ERROR 
(1) *CALL 
(1) :* ERROR N y;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 014014 SERROR: 
(1) 014014 104407 CKSWR :TEST FOR CHANGE IN SOFT=SWR 
(2) 014016 104407 CKSWR 3:60 LOOK "FOR suk WR CHANGE 
(1) 014020 105237 002103 7$: INCB $ERFLG T THE ERROR FLAG 
(1) 014024 001775 BEQ 7$ <aGNeT LET THE FLAG GO TO ZERO 
(1) 014026 013777 002102 166106 MOV STSTNM,@DISPLAY i :DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 014034 005237 00211 INC L THE ERROR COUNT 
(1) 914040 011637 11 MOV (SP) ,SERRPC ci otr ADDRESS OF ERROR INSTRUCTION 
(1) 014044 ? 002116 SUB #2, SERRPC 
(1) 014052 117737 166040 002114 MOVB aSERRPC,SITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE 
(1) 014960 032777 920000 166052 BIT #B1T13,aSuR 33SKIP TYPEOUT IF SET 
(1) 034066 001004 BNE 208 ?SKIP TYPEOUTS 
(1) 914070 004737 014170 JSR PC, SWRCK 2260 TO USER ERROR ROUTINE 
(1) 914074 104401 002165 es TYPE ,$CRLF 
(1) 014100 122737 000001 002210 CMPB Ss WAP TENV, SENV i s RUNNING IN APT MODE 
(1) 014106 001007 BNE 2$ $:NO,SKIP APT ERROR REPORT 
(1) 014110 113737 902114 014122 MOVB SITEMB. 218 +:SET ITEM NUMBER AS ERROR NUMBER 
(1) 014116 004737 013112 JSR PC, SAT :SREPORT FATAL ERROR TO APT 
(1) 014128 000 21$:  . BYTE 
(i) 01412 “BYTE 
(1) 014124 00077 328: BR 2$ 3 APT ERROR LOOP 
(1) 014126 005777 166006 $: TST asur S:HALT ON ERROR 
(1) 014132 100002 BPL $ 33SKIP IF CONTINUE 
(1) 014134 000000 HALT ON ERROR! 
(1) 014136 104407 CKSWR iITEST FOR CHANGE IN SOFT-SWR 
(1) 014140 777 001000 165772 3$: BIT #B1T09,aswR 33LOOP ON ERROR SWITCH SET? 
(1) 014146 001402 BEQ 4$ [BR IF NO 
(1) 014150 13716 00 11) MOV SLPERR, (SP) FUDGE RETURN FOR L 
(1) 014154 00573 162 4$: TS’ SCAPE CHECK FOR AN ESCAPECA ADDRESS 
(1) 914160 001402 BE) [:BR IF NONE 
(1 014162 013716 002162 * MCV SESCAPE.(SP) =: FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 014166 000002 RETURN 

7114 pees cheeeeeneeneeeeeereceeeeeeceeeneetenteeereneeeneeeeeeeretee 

7115 [GO TYPE ERROR 





- 





Se 
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N 


-SBTTL SCOPE HANDLER ROUTINESTARS 
s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


CNDRDA.P11 —-10=DEC=82 14:44 ERROR HANDLER ROUTINE SEQ 0043 
7116 ;GO UPDATE SOFTWARE SWR IF *CNTRL/G’ 
7117 RARAEATAAAAAAAAERAAAAAETAAEKEKEEKEAARARAEEREAARERAAEEAAAAEREEAAEEEE 
7118 014170 113737 002102 002632 §URCK: MOVE STSTNM,TSTNUM :SET UP TEST # ON ER 
7119 014176 004737 014206 JSR PC, SERRTYP :GO TYPE ERROR 
7120 014202 104407 CiSwr *GO LOOK FOR SWR CHANGE 
7121 014204 000207 RTS PC SRETURN TO ERROR HANDLER 
"92 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) J AAAAAAAAAAAAAEAERAAEAEETEE REA EEEAEREREREREEAAEEEEAREREEHEREEKE 
(1) tSTHIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
(1) [*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE’ (SERRTB), 
(1 [*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 014206 SERRTYP: 
(1) 014206 104401 002165 TYPE SCRLF rr'CARRIAGE RETURN’ & "LINE FEED" 
(1) 014212 010046 MOV RO, =(SP) 33 
(1) 014214 005000 CLR RO’ S:PICKUP THE ITEM INDEX 
(1) 014216 153700 002114 BISB  a#SITEMB,RO 
(1) 014222 001004 BNE 1$ :31F ITEM NUMBER 1s ZERO, JUST 
(1) t:TYPE THE PC OF THE ERROR 
(2) 014224 013746 002116 MOV SERRPC,=(SP) pak, Sart on TYPEOUT 
(2) 014230 104402 TYPOC 3:GO TYPE=-OCTAL ASCIICALL DIGITS) 
(1) 014232 000426 BR 6$ $:GET OUT 
(1) 014234 005300 1$: DEC RO $SADJUST THE pect SO THAT IT WILL 
(1) 014236 006300 ASL RO 33 WORX FOR THE ERROR TABLE 
(1) 914343. 996300 Ast ORO 
(1) 912306 065700 902252 ADD ASERRTB_RO 3:FORM TABLE POINTER 
(1) 014250 012037 014260 MOV (RO)+,28 [PICKUP “ERROR MESSAGE’ POINTER 
(1) 014254 001404 BEQ 3$ ie KIP TYPEOUT IF NO POINTER 
(1) 014256 104401 TYPE zs TYPE THE “ERROR MESSAGE" 
(1) 014260 000000 2s: -WORD 0 SSTERR ROR MESSAGE” POINTER GOES HERE 
(1) 014262 104401 002165 TYPE  ,S$CRLF 3 CARRIA AGE RETURN’ & "LINE FEED" 
(1) 014266 012037 014276 3S: MOV (RO)+,4$ +: PICKUP “DATA HEADER’ POINTER 
(1) 014272 001404 BEQ 5$ 3:SKIP TYPEOUT IF 
(1) 014274 104401 TYPE S3]YPE THE “DATA HEADER’ 
(1) 014276 000000 4$: .WORD 0 33"DATA HEADER’ POINTER GOES HERE 
(1) 014300 104401 002165 TYPE  ,$CRLF t:"'CARRIAGE RETURN’ & "LINE FEED” 
(1) 014304 011000 5$: MOV (RO) RO : PICKUP "DATA TABLE’’ POINTER 
(1) 014306 001004 BNE 7$ $:G0 TYPE THE DATA 
(1) 014310 012600 63: MOV (SP)+,RO T:RESTORE RO 
(1) 014312 104401 002165 TYPE  ,S$CRLF rrUCARRIAGE RETURN’ & “LINE FEED" 
(1) 014316 000207 RTS PC + RETURN 
(1) 014320 7$: 
(2) 014320 01304 MOV a(R0)+,-(SP) 33SAVE a(RO)+ FOR TYPEOUT 
(2) 014322 10440 TYPOC 3GO TYPE=--OCTAL ASCIICALL DIGITS) 
(1) 014324 00571 TST (RO) 3318 THERE ANOTHER NUMBER? 
(1) 014326 001770 BEQ 6$ :BR IF NO 
(1) 014330 104401 014336 TYPE 8$ Si TYPE TWwO(2) SPACES 
(1) 014334 000771 BR $ 3 LOOP 
(1) 014336 020040 000 8$: ASCIZ / / $:TWO(2) SPACES 
(1) 014342 EVEN 
123 
(1) 
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014354 000416 
000004 
014362 012737 014402 
014370 005737 177060 
7 000004 
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000423 
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165566 


000004 


165520 
002102 


002103 
165462 
002106 


165430 


002104 


002104 
002160 


002174 


002115 


COPE HANDLER ROUTINESTARS 


3*AND LOAD a. TEST NUMBER(STSTNM) INTO THE DISPLAY ga « (DISPLAY<7:0>) 


S*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:0 
ssTHE | SWITCH alll fo PROVIDED BY THIS ROUTINE ARE: 


eSW146=1 P ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
:*$w09=1 LOOP ON ERROR 
:#SWOB=1 LOOP ON TEST IN SWR<7:0> 
3* 
3* SCOPE : sSCOPE=10T 
SSCOPE: 
sTEST FOR CHANGE IN SOF T-SuR 
1$: BIT #B1T14,aSuR ; LOOP ON PRESENT TEST 
BNE “VES IF SW14= 
-#HAHASTART OF cope FOR THE XOR testensesee 
$XTSTR: BR ob 31F RUNNING ON THE “'XOR'* TESTER CHANGE 
::THIS INSTRUCTION TO A ‘NOP’ =240) 
MOV a#ERRVEC,-(SP) tI SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$,a#ERRVEC ;3;SET FOR TIMEOUT 
TST a#177060 ‘:TIME OUT ON XOR? 
MOV (SP) +, a#ERRVEC i SRESTORE THE ERROR VECTOR 
ae BR $SVLAD :G0 TO THE NEXT 


(SP)+,(SP)+ 
MOV (SP)+, a#ERRVEC + 3RESTORE Ly. ER 
BR 7$ ;LOOP ON T e PRESENT TEST 
anne. | a OF coos Se sun KOR TESTERMAAM 


git s :: LOOP ON SPEC. TEST? 
CMPB = @SWR, STS TNM S:0N THE RIGHT TEST?  SWR<7:0> 
BEQ SOVER ::BR IF YES 
2s: TsTB SERFLG SHAS AN ERROR OCCURRED? 
chp SERMAX,SERFLG i EMAX. ERRORS FOR THIS TEST OCCURRED? 
BIT #B1T09,aSwR S:LOOP ON ERROR? 
BEQ 4 [:BR IF NO 
7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB = SERFLG 23ZERO THE ERROR FLAG 
CLR STIMES LEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ tTESCAPE TO THE NEXT TEST 
38: BIT #BIT11,aSwR :SINMIBIT ITERATIONS? 
BNE :BR IF YES 
TST SPASS :31F FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC SICNT ?S INCREMENT ITERATION COUNT 
CMP STIMES.SICNT 3CHECK THE NUMBER OF ITERATIONS MADE 
BGE HBR IF MORE ITERAT OON REQUIRED 
1$: MOV #1 VETCNT SIREINITIALIZE THE ITERATION COUNTER 
MOV SHXCNT .STIMES S:SET NUMBER OF ITERATIONS TO DO 
SSVLAD: INCB = $TST [COUNT TEST NUMBERS 
MOVB STS INN, STESTN “:SET TEST NUMBER IN APT MAILBOX 
MOV (SP), SLPADR T:SAVE SCOPE LOOP ADDRESS 
MOV (SP) “$LPERR TISAVE ERROR LOOP ADDRESS 
CLR $. SCAPE SICLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVE #1, SERMAX T:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


ee ee ee ea es ee —_ 


ZECLEAR THE STACK TAFTER A TIME OUT 
ROR VECTOR 


SEQ 0044 


poe an ee ee Ser ee _ o— ne oe oe —_ 
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| CNDRDA.P11 10=DEC=82 14:4 SCOPE HANDLER ROUTINESTARS SEQ 0045 
| (1) 014604 ETRE Ope 102 165330 fOVER: MOV STSTNM, are 4h th A gl TEST NUMBER 
014612 013716 0210 MOV SLPADR, (SP) 33FUDGE RETURN ADDRESS 
014616 000002 RTI ser Imes PS 
014620 000001 SMXCNT: 1. 33MAX. NUMBER OF ITERATIONS 


~SBTTL TTY INPUT ROUTINE 


FF RAAAAAAAAAAAAAAAAKKE AAS AERAHTEAAAERAHAAKEHAKAAHERARE KARE EEHee 


~-ENABL LSB 


peeeeeeeeareaeaeeeeeeererereeceraereeeeeeneereetereneeeeeeerenes 
3 *SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
*ROUTINE IS _ENTERE FROM THE TRAP HANDLER WILL 
3 *SERVICE Hy | TEST FOR CHANGE IN SOF TUARE gultcH” REGISTER TRAP CALL 
WHEN OPERATING IN TTY FLAG MODE. 


(1) 
(1) 

(1) 

124 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(2) 

(1) 

(1) 

() 

(1) 014622 022737 000176 002140 icsur WR: CMP #SUREG SUR 3518 THE SOFT=SWR SELECTED? 
(1) 014630 001074 BNE 1 [BRANCH IF NO 

(1) 014632 105777 165306 TST8 = @STKS [:CHAR THERE? 

(1) 014636 100071 BPL 15$ t:IF NO, DON'T WAIT AROUND 
(1) 014640 117746 165302 MOVB rh ~($P) T:SAVE THE CHAR 

(1) 014644 042716 177600 BIC acl tec T:STRIP-OFF THE ASCII 

(1) 014650 022726 000007 CMP e T:IS ITAC G? 

(1) 014654 00106 BNE i TINO, RETURN TO USER 

(1) 014656 lose 002134 000001 CMPB  =s- SAUTOB, #1 S:ARE WE RUNNING IN AUTO-MODE? 
C1) 014664 001456 BEQ 15$ S:BRANCH IF YES 

(1) 014 104401 015347 TYPE  ,$CNTLG ZECHO THE CONTROL-G (*G) 
1) o14e98 19421 O13! SGTSWR: TYPE  ‘SMSWR S:TYPE CURRENT CONTENTS 

(2) 014676 013746 000176 MOV SWREG,-(SP) i: SAVE SWREG FOR TYPEOUT 

(2) 014702 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 014704 104401 015365 TYPE ,SMNEW : T FOR NEW SWR 

(1) 014710 005046 19$: CLR =(SP) SICLEAR COUNTER 

(1) 014712 005046 -(SP) 

(1) Ure NEW SWR 

(1) 014714 105777 165224 7$: ti asTKs z:CHAR THERE? 

(1) 014720 100375 7$ ::IF NOT TRY AGAIN 

(1) 014722 117746 165220 MOVB ase -(SP) z:PICK UP 

(1) 014726 042716 177600 BIC #°C177, (SP) TIMAKE IT “ai ASCII 

aD 

(1) 014732 021627 000025 98: CMP (SP) #25 :31$ IT A CONTROL=U? 

(1) 014736 001005 BNE 108 (CH IF NOT 

(1) 014740 104401 015342 TYPE ,$CNTLU zIYES ECHO CONTROL-U (*U) 
(1) 014744 062706 000006 208: ADD #6, SP [IGNORE PREVIOUS INPUT 

(1) 014750 00075 BR 19$ SILET'S TRY IT AGAIN 

(1) 

(1) 014752 021627 000015 10$: CMP (SP) #15 3321S 1T A <CR>? 

(1) 0147 1022 BNE 16$ CH IF NO 

(1) 014760 000004 TST 4(SP) tives. IS IT THE FIRST CHAR? 
(i) epee Seo 000002 165144 Rov bt Sp) aswr z3BRANCH IF Sun 

(1) 127% 065706 000006 11$: ADD #6,SP TICLEAR UP STACK 


H 4 
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CNDRDA.P11 =: 10=DEC=82 14:44 TTY INPUT ROUTINE SEQ 0046 
015000 194401 002165 146$: ‘TYPE SCRLF z;ECHO <CR> AND <LF> 
015004 123727 002135 000001 CMPB «SNAG, #1 t:RE*ENABLE TTY KBD INTERRUPTS? 
| 015012 3 BNE 15$ S:BRANCH IF NOT 
015014 012777 000100 165122 MOV #100, aSTKS t:RE-ENABLE TTY KBD INTERRUPTS 
015022 15$: RTI + RETURN 
915024 004737 013024 16$: JSR PC ,STYPEC t:ECHO CHAR 
| 015030 021627 000060. CMP (SP) ,#60 T:CHAR < 0? 
015034 002420 BLT 18$ + BRANCH IF YES 
| 013056 021627 000067 CMP (SP) ,#67 S:CHAR > 7? 
015042 003015 BGT ::BRANCH IF YES 
015044 042726 000060 BIC #60, (SP)+ S:STRIP=OFF ASCII 
015050 005766 000002 TST 2(SP) t:1S THIS THE FIRST CHAR 
015054 001403 BEQ 7$ S:BRANCH IF YES 
015056 006316 ASL (SP) [:NO, SHIFT PRESENT 
015060 006316 ASL (SP) +: CHAR OVER TO MAKE 
015062 006316 ASL (SP) +: ROOM FOR NEW ONE. 
015064 005266 000002 17$: INC 2¢SP) ::KEEP COUNT OF C 
015070 096616 177776 BIS =2(SP), (SP) t:SET IN NEW CHAR 
015074 00070 BR [:GET THE NEXT ONE 
015076 104401 002164 18$: TYPE SQUES T:TYPE ?<CR><LF> 
015102 000720 nny 208 S:SIMULATE CONTROL-U 


'‘RARAARAAAAALAAALAAAAAAAAAAAAAAAA LAA ALAA LARA RAR RARER RRR RAD 


zSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


* RDCHR z INPUT A SINGLE CHARACTER FROM THE TTY 
* RETURN HERE S:CHARACTER IS ON THE STACK 
ie T:WITH PARITY BIT STRIPPED OFF 

015104 011646 SRDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC 

015106 016666 000004 000002 MOV 4(SP5,2(SP) [SAVE THE PS 

015114 105 165024 1$: TSTB. 0s aSTKS S:WAIT FOR 

015120 100375 L 1 tA CHARACTER 

015122 117766 165020 000004 MOVB  a$TKB,4(SP) [:READ THE TTY 

0151 942766 177600 000004 BIC #°C<177>,4(SP) 3:GET RID OF JUNK IF ANY 

015136 02 000004 000023 CMP 4(SP),#2% t:1S IT A CONTROL=S? 

015144 00101 S:BRANCH IF NO 

015146 105777 164772 28: TSTB 30s @STKS t:WAIT FOR A CHARACTER 

01515 100375 BPL 23 t:LOOP UNTIL ITS THERE 

015154 117746 766 MOVB are -(SP) t:GET CHARACTER 

015160 042716 177600 BIC #*C177, (SP) S:MAKE IT 7-BIT ASCII 

015164 022 21 CMP (SP)+,#21 t:1S IT A CONTROL 

0151 BNE 23 S:1F NOT DISCARD IT 

015172 000 BR 1$ *SYES, RESUME 

015174 02 000004 000140 3$: CMP 4(SP),#140 t:1S IT UPPER CASE? 

O15 2407 BLT 4$ S:BRANCH IF YES 

15 026627 000004 000175 CMP 4(SP), #175 t:1S IT A SPECIAL CHAR? 
013 1g 43766 000060 000004 ee aE acsp) CTUARE TT UPPER CASE 
15222 000008 48: RTI ':G0 BACK TO USER 


MTTIITITITITITILI TILT TLitit iti 
rt reg ROUTINE WILL INPUT A STRING FROM THE TTY 


BLL LL LR RB BB BB BBE BP POP PL POL ey ey yy Py ee Pe Fy Pe my Pe 
ee er ee ee et ee et ee et ee et es ee ee ee ee er er ee Se ee ee a ee ee ee ee ee ee ee ee ee ee ee ee ee a a ea a a a ea ae a 
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CNDRDA.P11 - 10=DEC=82 14:44 UT ROUTINE SEQ 0047 
a) ye ROLIN y INPUT A STRING FROM THE TTY 
a1) ie RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
tt} s; TERMINATOR WILL BE A BYTE OF ALL O°S 
(1) 015224 01034 SRDLIN: MOV R3,-(SP) r:SAVE R3 
(1) 015 01270 015332 1$: MOV #STTYIN,R3 +:GET ADDRESS 
(1) 015 02 703 015 23: CMP @STTYIN®B..R3 = ;BUFFER FULL? 
(1) 015236 101405 BLOS 6 4$ 7:8R IF Y 
(1) 015240 10441 RDCHR +:GO READ ONE CHARACTER FROM THE TTY 
(1) 015242 11261 MOVB = (SP) +, (R3) t:GET CHARACTER 
(1) 015264 122713 000177 10$:  CMPB  #177,(R3) t:1S IT A RUBOUT 
(1) 015250 00100 BNE 3$ ::SKIP IF NOT 
(1) 015252 104401 002164 4$: TYPE SQLES 33 A‘?! 
(1) 015256 900765 BR is [:CLEAR THE BUFFER AND LOOP 
(1) 015260 111337 015330 3$: MOV = (R23), 98 S:ECHO THE CHARACTER 
(1) 015264 104401 015330 TYPE =, 
(1) 015270 leeres 15 CMPBs«#15,, (R3)* r:CHECK FOR RETURN 
(1) 015274 0013 ‘ BNE +:LOOP IF NOT RETURN 
(1) 015276 105063 177777 CLRB 2s = 1(R3) T:CLEAR RETURN (THE 15) 
(1) 015302 104401 TYPE ,S$LF +: TYPE A ED 
(1) 015306 012603 MOV (SP)+,R3 S:RESTORE R 
(1) 015310 011646 MOV (SP) ,-(SP) S:ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 015312 016666 900004 000002 MOV 4(SP5,2¢SP) 3: FIRST ASCII CHARACTER ON IT 
(1) 015320 01 766 015332 000004 MOV #STTYIN, 4(SP) 
(1) 015326 00000 RTI 3 RETURN 
(1) 015330 000 98: .BYTE 0 T:STORAGE FOR ASCII CHAR. TO TYPE 
(q) tee te ts STTYIN: . (KB 4 + RESERVE o" YTES FOR TTY INPUT 
(1) Or 3325 eat 005015 SCNTLU: .ASCIZ /*U/<15><12> CONTROL AR 
(1) 015347 1 507 000012 S$CNTLG: .ASCIZ /*G/<15><12> CONTROL ''G’’ 
(1) 015354 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 
(1) 015362 020075 
(1) 01536 040 047040 053505 SMNEW: .ASCIZ / NEW = / 
(1) 015372 036440 000040 
7125 ~SBTTL POWER DOWN AND UP ROUTINES 
(2) g STS KSATTHKeHKHKEH HHSC ReeeReaeeeeaeaeeeereeeaeeaeeeeeee 
(1) “POWER DOWN ROUTINE 
(1) 015376 012737 015542 000024 $PWRDN: MOV #$ILLuP arPuRvEc ::SET FOR FAST UP 
(1) 015404 012737 000300 000026 MOV #PRE aFPWRVEC+2 ;:PRIO:6 
(3) 015412 01 MOV RO,-(SP) +:PUSH RO ON STACK 
(3) 015414 010146 MOV R1.=(SP) ::PUSH R1 ON STACK 
(3) 015416 010246 MOV R2.-(SP) [PUSH R2 ON STACK 
(3) 015420 010 MOV R3,-(SP) [:PUSH R3 ON STACK 
(3) 015422 010446 MOV R4,=(SP) ?:PUSH R4 ON STACK 
(3) 015424 010546 MOV R5S.-(SP) [:PUSH RS ON STACK 
(3) 0154 ot 746 164506 MOV asur,-(SP) [PUSH @SWR ON STACK 
(1) 0154 1 : 91554 MOV SP, SSAVR6 T:SAVE SP 
(1) 015436 012737 015450 000024 MOV #SPWRUP, aePWRVEC ::SET UP VECTOR 
(1) 913446 HALT 
He 15446 000776 BR 72 3;MANG UP 
(2) PS eeteeeereeeecereeeeerereceeereeeereeeereeeererereeerereeeeerers 
(1) “POWER UP ROUTINE 
(1) 015450 012737 015542 000024 $PwRUP: MOV SSILLUP,a#PWRVEC :;SET FOR FAST DOWN 
(1) 015456 013706 015546 MOV SSAVR6, SP s:GET SP 
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MACY11 30(1046) 15=DEC-82 33 3 PAGE 59-15 
POWER DOWN 


AND UP RCU 

CLR SSAVR6 s;WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 szWAIT FOR THE INC 

BNE 1$ 3 0F D 

MOV (SP)+,aSwR 77POP SIACK INTO aSwR 

MOV (SP)+,R5 3zPOP STACK I 

MOV (SP)+,R4 33 STACK INTO RG 

MOV (SP)+,R3 37POP STACK INTO R3 

MOV (Spent 33 STACK INTO R2 


TACK INTO RO 

“igSeT uP THE POWER DOWN VECTOR 
TYPE ::PR10:6 T THE POWER FAILURE 
SPWRMG: .WORD +:POWER FAIL MESSAGE POINTER 


PRM 
MOV CPC): (SP) S:RESTART AT STAR 
SPWRAD: .WORD START 7 ;RESTART ADDRESS 


SILLUP: HALT sTHE POWER UP SEQUENCE WAS STARTED 
BR .-2 33 ; BEF ORE THE POWER DOWN WAS COMPLETE 

SSAVR6: 0 THE SP HERE 

PWRMSG: .ASCI2Z <15><12>/RESTARTED + YROM PuR FAIL/ 


-EVEN 
-SBTTL TRAP DECODER 


ITI iii iiiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiiy) 

3 STHIS ROUTINE WILL te THE ae BYTE OF hh *“*TRAP’’ INSTRUCTION 
z*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3 *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) r:SAVE RO 
MOV (SP), RO 33GET TRAP ADDRESS 
TST (RO) UP BY 2 
MOVB (RO) .RO SIGEr RIGHT BYTE OF TRAP 
ASL R t:POSITION FOR INDEXING 
MOV STRPAD(RO).RO  ;INDEX TO TABLE 
RTS RO 3:G0 TO ROUTINE 


zi THIS IS USE TO HANDLE THE "GETPRI*’ MACRO 
STRAP2: MOV (SP), =(SP) z:MOVE THE PC DOWN 
MOV 4(SP5,2(SP) ::MOVE THE PSW DOWN 
S:RESTORE THE PSwW 
.SBTTL TRAP TABLE 


seruls Mt CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY ‘TRAP’’ INSTRUCTION. 


; ROUT INE 


SEQ 0048 


_—- = a ee ee ee 0 re eee —_-— —- ---- - - _— 
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| CNDRDA.P11 10=DEC=82 14:44 TRAP TABLE 


636 01562 


SEQ 0049 


a 
Ww 
~ 


STRPAD: . STRAP2 


& D p 
2 STYPE ;;CALL=TYPE TRAP +1 ( 


015 

_ (3) 015640 01261 104401) TTY TYPEOUT ROUTINE 
' — (3)—-015642 «01 STYPOC ;;CALL=TYPOC TRAP+ Bt at's 1 TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
1 (3) 015644 01 STYPOS ;;CALL=TYPOS TRAP+3(1044035) TYPE OCTAL NUMGER (NO LEADING ZEROS) 

(3) 015646 01340 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

3 015650 01357 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER ‘WIT!, SIGN) 

3} 015652 014672 SGTSWR ;;CALL=GTSWR- TRAP+6(104406) GET SOFT-SWR SETTING 

3} 015654 014622 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 

(3) 015656 015104 SRDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

vise 015660 015224 SRDLIN ;;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
30 -SBTTL_ ASCII MESSAGES 


PA TITLED: .ASCIZ <15><12>/CNDRDA DRV11J DIAG TEST PART 2/<15><12> 


7131 + 
132 TITLED: .ASCIZ <200>/CNDRDA DRV11J DIAG TEST PART 2/<200> ziGPA 


S 


>;GPA TLCABL: .ASCIZ <15><12>/DRV11J CABLE REQ‘'D/<15><12> 
TLCABL: .ASCIZ <200>/DRV11J CABLE REQ'D/<200> ziGPA 
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9 EM1: eASCIZ /REG TIMEOUT ER/ 
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; EM2: eASCIZ ‘REG READ/WRITE ER* 


EMS: eASCIZ /IRR REG ER/ 
Goo12 EMG: eASCIZ /ACR REG ER/ 
2 


ot 


S338 
oS 


SHAS 


1 
33 EMS: eASCIZ /IMR REG ER/ 
2 EM6: eASCIZ /ISR REG ER/ 
35 EM7: eASCIZ /ILLEGAL VECTOR MEM ADDR ER/ 


ssh 


FOWMNOWMNONNNUW 
zs 


s 


o 
w 
—— 


BE KRRRLASSE 


— 


970138 EM10: .ASCIZ /CHIP STAT ER/ 


S8 


i 

oD 

3 
eesece 
vw 
Bae 
eS 
Sse 
ooo 
ofr—a—— 
RAVER 
yo 
Soonoe 
RALAE 
mM fw 
Sa 
RN 


i, GPA EM11: eASCIZ /ILLEGAL INTERRUPT RECEIVED/ 
E11:  .ASCIZ 7ILLEGAL INTERRUPT REC'D/ 72GPA 


EM12: .ASCIZ /INTERRUPT TEST ERROR/ 


7141 
: 


be et ee me ak a a a es a at a ss = ag = st SD 


PDOOHAAA APAOAA*S 
M=MNE—= VMWWIMO NS 212 NON NOS 


RAL 
itViwtatad ata 9 
M—P9%———] NMNMOOL-——0-0-"9 00 —fy 


—b PSs oe tt tees 
PESVEK KRVSSS 
Mme—OOoOnwoeo 
Me = 2 


ont 
MNRON—— 
Seu & 


w 


ee ean ee Ce ee ee eee ee — - ——————— 





& 
PAGE 59-17 


L 


C 
CNDRDA.P11 


SEQ 0050 


15=DEC=82 15:26 
ASCII MESSAGES 


MACY11 30(1046) 


10=DEC=82 14:44 


NDRDA DRVI1J DIAG TST PRT2 





< = 
a = 
o vw 
. a 
= 
— 
Yu ~ 
a ts 4 
a a 
vai a 
~ ~ ~ 
a a a a« 
ww > a a 
i =) (=) a = 
~ a <= < 
w > 
LS) 
uw 
a he a 
vw a 
-™ Pa ” 
aoa w > > 2 
>e 
Qw 
a s : : 7 
= “x < a a 
2m n “” wn to 
“a ~ @B a @ wa 
us 
wS a oad 
ce uw 
ack 
mu 3 
—— w 
22 = on — — 
_ ” wn (Ve) ee 
rt. 4 _ _ = nn 
“uw a ont 
—_ oa 
oh <= 
No Y vw i =) 
oe he oat a a a a 
vw vu a ae < fo 4 
w” w i. 4 e [eg a 
4 > ua ve) ws w 
os ~ ~ ~ ~ ~ 
io) mM ™ Ped ~ ~ 
_ _— — -_ — _— 
wo Ls) Yu [= —) uw 
“AM ” ” ” 2] ” 
mt <= <= < < gq 
eC es 7 e a - a 
= 
[vey 
<z ee 
am ~w ee 
O- _— - ~ ~ 
= = =x = = 
cous w r= = —) 
~ Tenn wo NOX NOCS RUSNSSS SOON ax Noo ouoUmMNoOOoOw 
N Ne-NO ow wv pata dat) Meru ~N 
- Nrnrn yeeon ne Sere a WMNnewN - 
in whe fe Rs oS Sesesyy VSONS tenons SAAaunes 
sos 3363 S SSSSS SSSSSSSSSSSSSSS SESSS 
oS MAO ouwo SN NOM ss SsSooont? NMT KO 
wv None ooo sNe p Aap te | oorur NUNN 
wT ore OOoMKe Tn Sonn Sanny eCererw s=S errno--oe- 
Y GREE sneeakass GASISSROERERESY BNoEes 
S S8SSS SSSSSSSSS SF SSSSSSSSSS SSSSSSS 
nr 


NOW SO SSSHNSSss SgeRsse onoumes 
Ne Noco sano Zoey Roses “Rs5s$ 
Aa AAW MNKA 


Ne- OWNNEN NOK VOLS oonr-O0oeo 


BS S3SE SSSSSSS RSsose 
NO MOOIIMNGEVNOOYOMOOYYSOSNSLIVO SENS SVN 
% BiassssssuesuuuusaasoossueueeueseeceNS |S 


. ik om Cel gel eed el oe eel eel el lh gel el ee el eel el ee ee el el el el ee ee el el ee ee el el el el ee ee el oe el ee ee 


SO COSSOCOOCOSOCCSOSOSOSOSOSOSOSOSOSOSOSOSOOSSOOSOSSOOOSOOoO 


-EVEN 


SERRPC, TSTNUM, SBDADR , SGDDAT , SBDDAT 0 


SERRPC , TSTNUM, SBDADR , VECVAL , VECLOC , SGDDAT , SBDDAT 0 


SERRPC ,TSTNUM, SBDADR ,VECVAL ,VECLOC 0 


ee 
~~ 
— 
c=) 


se 


SERRPC , TSTNUM, SGDADR , SBDADR , VECVAL , VECLOC 0 


DT4: 


PF AAAAAAAAHKeAAKAHAAAHAAAAAAKAAKAAK eee eReeeeeeRetetaeeeeeeeeereee 





—— + 


| CNDRDA DRVI1J DIAG TST PRT2 


CNDRDA.P11 10=DEC=82 14:44 


66 
7167 016624 000102 
7168 


? 
7173 017030 000100 
7174 017230 





Mm 4 
MACY11 30(1046) 15=DEC=82 15:26 PAGE 59-18 
ASCII MESSAGES 


3*DBUF* IS THE STORAGE AREA FOR SYSMAC Loree to 0-202 
zPRESERVED | i" oro. TO TEST DRV11J VECTORING T 


fo LCDs: Sebeneeidecnalied acest 
bauF:  .BLKW 66. z1ST ADRS OF DATA STORAGE AREA 


FARERAAAAAAAAAAAEEA AAAS EEE TEA AEEAERERERAEREEEREREREEEREEREREREE 


:VECTOR BUFFER USED FOR VECTOR UNIQUENESS TEST 
: FOR 64 INTERRUPT VECTORS. 


fF RRARAEEAAEEAEAAERER AEE AE EEEAEEEEEAERERAARAAAEARAREEEEEREREEEHEREEE 


VBUF:  .BLKW 64. 
ENDBUF : 


SEQ 0051 


N 4 
CNDRDA DRVI1J DIAG TST PRT2 MACY11 hh a 15=DEC-82 15:26 PAGE 60 


CNDRDA.P11 —- 10=DEC=82 14:44 ASCII MESSAGES SEQ 0052 
7263 sTHE FOLLOWING CALL WAS INCLUDED TO INIT BRKVEC AND LKVEC -,, 
7264 017230 POINT=, :SAVE POINTER lh 
(1) 000100 .=100 
(1) 000100 017230 SCLKVEC ZLKVEC HANDLER 
(1) 000102 000300 0 j INTERRUPT HANDLER PRI 
(1) 000140 .=140 
(1) 900149 170000 170000 ODT START ADDRESS 
(1) 000142 000300 300 : PRIORITY - 
(1) 017230 =POINT *RESTORE POINTER 
(1) 017230 104401 017236 SCLKVEC: TYPE ,CLKMES 
(1) 017236 005015 045514 042526 CLKMES: .ASCIZ _, 5 ae INTERRUPT = DISCONNECT LTC / 
(1) 017244 92019 047111 042524 
(1) 017252 051122 050125 020124 
(1) 017260 020055 044504 041523 
(1) 017266 047117 042516 052103 
(1) 017274 046060 041524 000040 
7265 :THE FOLLOWING FLAG WAS INCLUDED TO INDICATE FALCON 
7266 017302 000001 KXTFLAG:1 
7267 000001 : 


ee ee ee 








CNDRDA.P11 
ABASE = 174160 
ACDW! = (00 


CNDRDA DRV11J DIAG TST PRT2 
10=DEC=82 14:44 





5 
MACY11 30(1046) 15=DEC-82 15:26 Pace 61 
CROSS REFERENCE TABLE == USER SYMBOLS 


snes" 5743 5820 3=—s 5821 5822 5823 5824 
74 


tz 


# 5743 


NNN NNANNNNNNO NNSA 
RARRARRAARAAARRARARROARARRRRRARARRRRRRUD 
WWII WWW NNW WINN NAAWAA AANA AAW AAW OWI 


rib sh dh db th db dh Abed dh dh db dh dh dh db dbdbedbedh th db db dbedh sh db dbth sb sh sb dh sh dh sh ah sb abo) 


7109 71104 
7109 711 7113 
$033 711 

109 711 
opet 68454 

ro] 

a) 

7% 

74 

74 


74 


5825 


5826 


5827 


SEQ 0053 





i a ee a 


| ¢ 5 
CNDRDA DRV11J DIAG TST _PRT2 MACY11 30(1046) 15=DEC=82 15:26 PAGE 61-1 
CNORDA.P11 10=DEC=82 14:44 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0054 


BGCHPS 012570 5924 6035 6124 6249 70954 
BITO = 000001 ye 6717 
BITOO = stead 69 
BITO! = 2 et 
Bi Tee = 000004 69 
BITOS = 000010 56934 
BITO4 = 000020 569 
BITOS = 000040 569 
BI TOS = 000100 569 
BITO? = 000200 56934 
BITO8 = 000400 56934 712 
BITO9 = 001000 56934 711 7123 : 
BIT1 = 000002 56934 5953 6054 6167 6296 6423 6556 
BIT10 = 002000 56934 
BIT11 = 004000 56934# 7123 
sits = 010000 56934 
BIT13 = 020000 56934 7113 
BIT14 = 040000 56934 7123 
BIT15 = 100000 56934 56 
sits = 000004 56934 
BITS = 000010 56934 
BIT4 = 000020 56934 
BITS = 000040 56934 
BIT6 = 000100 56934 
BIT? = 000200 56934 
BIT8 = 000400 56934 5697 
BIT9 = 001000 56934 5698 6009 6042 6134 6257 
BPTVEC= 800013 26838 
BRKVEC= 140 69 
BYCNT 002470 58474 6146% 6149% 6270* 6274% 6734* 6745 
YNUM 002472 58484 olcis ols¢ 6168 6227* oese* oe70 444 6363* 6866 6927 
CAT200 011756 6263 $6 5 629 6305 6317 632 6333 6341 6350 69024 6934 6941 
CHPISR= 14 57144 995 6563 6577 
CIMR = 000040 57044 6401 6413 6535 6546 
CIRMR = 000020 57014 
CIRR = 000100 57094 6567 6581 
CISR = 000160 57154 6343 
CKSWR = 104407 gce8 6364 7113 7120 7123 71284 
CLKMES 017236 644 
LRBF 011266 6 6518 67714 
CLRCSR 010746 3052 6034 ole 6247 6383 6517 66984 
CLRIRR BI 10s8 Sy st 34 61 6258 6389 6523 67144 
= 00001 569 109 
CRLF = 000200 5693#@ 7109 
CSIMR = 000050 5705#@ 5925 6036 6126 6251 
CSIRMR= 0000 57024 
CSIRR = 000110 571 
Saur ” Oreeee shan 8958 rnoze 
DDISP = 0758 0 S6o3e o776 5853 
O16¢ 5 <8 278 71504 
OH 1633 575 MY 5764 5770 5776 5788 5800 5806 71514 
OH 016420 5794 1524 
DHS 016465 2816 715 
DIR = ¢ ; 974 
DISPLA 00214 43@ 5853* 7113" 7123 





(———_- ---—- -—-- -- --+-- +--+ er ee - 


/CNDRDA DRV11J DIAG TST _PRT2 





| CNDRDA.P11 10=DEC=82 14:44 
DISPRE 000174 He 
oases 8334 
DRCSA 002412 rah 
ORCSB 00 238 S8aze 
orcsc 00 es 0244 
DRCSD 002426 5826" 
RDBA 002414 58214 
DROBB 002420 58234 
DROBC 002424 58254 
DRDBD 9068 58278 
DSWR = 177570 56934 
DT1 0165 5747 
OT 01655 5753 
OT 016572 5795 
DT4 01 5813 
EDCHP3 01261 6016 
EMTVEC= 000030 56934 
EM1 015751 5745 
—mM10 gieig: 5787 
EM11 0161 5793 
EM12 016166 5799 
Em15 016213 5805 
EM14 016245 5781 
EM2 015770 5751 
EM3 pleas 5757 
me Hse es 
EM6 §18083 2783 
EM7 016066 5811 
E Et 4 71748 
ENDTRP 011570 6837 
END200 012040 6911 
ERRVEC= 253" 
F 011326 6283 
6939 
= eeeeee 5732 
GRPCNT 002462 58444 
GTSWR = 104406 5893 
HT = 1 56934 
IE = 001 56984 
IMRLOC 00244 ate" 
INTBY4 0116 gis 
INTFLG 002436 8344 
61458 
6407 
6855* 
INTSR1 011576 5927 
INTSR3 012056 6267 
INTO 012170 6760 
INT1 012174 69614 
INT10 Bis 40 9794 
INT11 012244 69814 
INT1 B15 50 69834 
INT1 012254 69854 
INT14 012260 69874 


MACY11 Seg! 
5853 
5895*  5896* 
28° * $590 
g 0 67? 
91 6030 
602 6109 
602 6110 
2908 
574 5853 
5783 71564 
5759 5765 
71584 
71598 
$103 71034 
853+ 
71368 
71434 
71454 
71468 
71484 
71498 
71378 
71384 
71398 
71408 
71418 
71424 
6844 68504 
691 
5853* 7123+ 
6291 6303 
712 
a5 * 6020+ 
71 
7109 
5925* 5935 
$8 Sa 
929* 5942 
6156 6159* 
6410* oere 
685 6865* 
6038 68554 
6919 9264 
69594 


0 5 
15=DEC=82 15:26 PAGE 61-2 


5771 


6315 


6033* 


6018 
5945 
6162 
6421* 
6867 


5777 


6323 


6107+ 


6036* 
5948 
6165* 
6495 
6926* 


668 
602 


6398 


6397 


5789 


ROSS REFERENCE TABLE == USER SYMBOLS 


5801 


6339 


6233* 


6105* 


5955 
oeeye 
6541 
6948* 


5807 


6119 


71574 


6242 


6377 


6220* 


6058* 
6289 
6554* 


6244 


67894 


6251 


6394 


6876 


6278 
6064* 
6299 
6569« 


SEQ 0055 


6528 


6931 


6357* 


DSS CO ae 7 
pores DRVI1J DIAG TST_PRT2 MACY11 30(1046) 15=DEC=82 15:26 PAGE 61-3 


NDRDA.P11 10=DEC=82 14:44 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0056 
INTIS 012264 69894 
mt fie =| SBE 
INT18 §13%00 69954 
i? fi ERE 
INT20 oiseie 6999" 
ish Ss HIE 
INT2S 012324 70054 
INT24 012350 70074 
INT2S 012334 70094 
INT26 012340 70114 
INT2? 012344 70134 
INT28 012350 70154 
INT29 012354 70174 
INTS pisos 69654 
mie fee Hie 
INT32 019370 70234 
INT33 = 012374 70254 
INT34 012400 70274 
INT3S 012404 70294 
me fie =| A 
INT 012420 70354 
me fi ee 
INT4O 619430 Ose 
mel fe 
INT4 012444 70454 
INT44 012450 70478 
INT45 012454 70494 
iis fine 
INT468 012470 70554 
INTS9 §=012474 70574 
INTS 012214 44 $4 
INTSO 012500 0594 
ish iE 
INTS 019514 70654 
INTS4 012520 70674 
iiss Sigs 
INTS Attys 0734 
INTS8 012540 70754 
INTS9 012544 70774 
iit, Sige ine 
INT61 019554 70814 
INTOS 12560 70834 
me fi 
INT8 1 5 69754 





F 5 
“CNDRDA DRVI1J thes TST 4 MACY11 30(1046) 15=DEC=82 15:26 PAGE 61-4 


(CNDRDA.P11 —-10=DEC=82 1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0057 

HINTS 012234 9778 

TOTVEC= 000020 6934 5853* 

TRRLOC 002446 S83BH 4606127 «6160 «= 6227* «6 252* «= 6287S 6 3588 

TSRLOC 002444 5837" 6128* 62046 6 * 

KXTFLA 01730 6211 $502 6666 ? 72668 

LF = 00001 56934 7109 

LKVEC = 000100 56958 

|LMDO4 = 000200 57188 

LMDS7 = 000240 57198 

LVLCNT 0024 58468 6125* 6224* 6250s 6360" 6732* 67478 

LVLSAV 002474 5849" 6533"  6565* 68e 6579* 

MACR = 00025 5725¢@ 5989 6097 6198 6335 6463 6487 6614 6636 

| MIMR = 000244 57234 5977 6085 oi8e 6319 6452 6476 6604 6625 

MIRR = 000250 57244 5983 6091 6192 6327 6457 6482 6609 6631 

MISR = 000240 57228 5971 5996 6079 6180 6205 6311 6344 6447 6471 6599 6620 

NEXPAS 003132 5900 5902" 6688 

NEXPAl 003136 59034 5 

NEXPA2 003202 5911 59134 

NXDEV 010564 6680" 

NXDEV1 010570 5901 66814 6687 

ODTST = 17 56934 

PACR = 000300 57284 6045 6399 6611 

PIMR = 000260 57298 

PIRQ = 177772 56934 

PIRQVE= 000240 56934 

POINT = 017230 2644 

PRO = 000000 56934 5937* 5952* 6053" 6065* 6154 6166* 6279 6295* 6403* 6414" 6422* 6537* 
547* 6555" 65708 

PRI = 000040 6930 

PR2 = 000100 56930 

PR3 = 000140 56934 

PR4 = 000200 56934 

PRS = 000240 56934 

PR6 = 000300 56934 5853 5913* 5947* 5959% 6060* 6075* 6161* 6175* 6288 6306* 6417*  6426* 

6550e 6559% 6573* 6699* 7125 

PR7 = 000340 56934 

PSs = :177776 56934 

PSW = 177776 56934 

PVMA = 000340 5730# 5931 6047 6123 6248 6700 

PWRMSG 015550 7125 7126 

PWRVEC= 000024 56934 5853* 7125 

RDCHR = 104410 7124 71284 

RDLIN = 104411 71288 

RDY = 100000 56964 

RESTRP 011364 6210 68024 

RESVEC= 10 6950 

RES200 011714 6351 68884 

SETVEC 012142 6393 $507 69464 

SIMR = 000060 57064 59 6050 6152 6277 

SIRR = 000120 57114 5946 6059 6404 6415 6538 6548 6564 6578 

SSIMR = 000070 57078 

SSIRR = 000130 7128 6127 6252 

STACK = 1100 297 

START 002476 573 58530 

START? 00 589 58948 6690 7125 

STKLMT= 177776 569 


-_ - —--- -—~ 


CNDRDA.P11 
'STRVEC 01 
| SwR 


2s 
Pr) 


ee 


sears 


Bes 


sgesaesae-seosssassaaascaos 
38 


sbicres 


s 


e 
os 


BSSOSSUS APP ONE NSS EE 


“+4 
nw 
Zax 
+. 
“ 
4 peababat 
ss 


s 
Serene 


ome os = 





/CNDRDA DRV11J DIAG TST PRT2 


10=DEC=82 14:44 


PVFVSUSISIS SIS IUION 
SSS SSS EN 
OODO00OO0fWfo@ 


Seeeeeee Se 


56934 


56934 


Soeece w 


ase 
ee 


SES Le 


es 
22 


s 


= 


oa 
wi 
_ 
, a 
te 


MACY11 30(1046) 


: 


6804 


G 5 
15=DEC-82 15:26 PAGE 61-5 


CROSS REFERENCE TABLE == USER SYMBOLS 


67594 
6796* 


7124 
6903 


6829 


6524 


6804 


6519 
6893 


7157 


7109 


6658 


6829 


68248 
6913 


7158 


6903 7113 7123 7124* 
7159 

7112 7113 7122 7124 
71738 


7125* 


7125 


71284 


7264 


SEQ 0058 


CNDRDA DRV11J DIAG TST PRT2 
10=DEC=82 14:44 


CNDRDA.P11 


VECFIL = 011064 
VECLOC 002452 


VECPAT 002454 


element Sate) 4 +4 +4 
mv _ 
Bk 


67 
5 
HD ty 
|SASTAT= eeenee 110 
SATYC 013120 71108 
SATY1 013074 711084 
SATY3) 01310 7109 
SATY4 1311 71108 
TOs 21 57434 
iSBASE 002244 Ok od 
|SBDADR 002122 574 
| ots 
157 
|SBDDAT 002126 57434 
5990 
| 6080 
$390 
6259 
6472* 
6574 
6611 
6647 
715 
$COW1 002250 574 
SCHARC 013070 71094* 
CK pests 71244 
SCLKVE 0172 reese 
SCMTAG 002100 5 fo 
m3 = 574 
SCNTLG 01 7 71244 
SCNTLU 01 2 712464 
002216 57434 
SCRLF 002165 57434 
SOBLK at 004 71128 
00 574 
4 574 
66904 
at, 
573 
66 
66 





wn 
roeeree: 


58 


w 


cree 


H 5 
MACY11 30(1046) 15=DEC-82 15:26 PAGE 61-6 


CROSS REFERENCE TABLE == USER SYMBOLS 


6123* 147 
6749« 157 
5873* 5885 
711084 
7113 
5877* 5883 
5897 
5933*  5961* 
ore 6470* 
158 7159 
5955" 5956 
991 5997* 
6081 6086* 
188 6193* 
6321 6328* 
6440" 6441 
647 6477 
6584 6585 


7109 7113 


6254¢ 
6264* 
6248* 


6262 
6265* 
6272 


6904 


6353 
6266* 
6359* 


7109 


6701 
6273 
6365 


7110 


6806* 
6730* 
6388* 


7113 


6807 
6735 
6522 


6809* 
6736* 
6700 


eis 


SEQ 0059 


6816* 
6739 
6731« 









DA.P11 10=DEC=-82 14:44 
SERRPC 00211 574 71138 
SERRTB O00. $3 574 ts 
SERRTY 014 7119 71228 
SenrTL Oo Srite Tif 
SEAaL Oboe! ie ae 
SFATAL 00217 sts 854 
SFFLG 013340 1104* 
SFILLC 00215 574 7109 
SFILLS 00215 574 7109 
$GD 002120 574 6875 
aie 002124 se Space 
* 
! Sone 
6334e 6 
6459 os 6e8 
G30¢6 £557. 
$678. 666 * 
SGET42 0 = £4 
SGTSWR 01467. 1244 7128 
Ss 
SHIBTS 00 428 
SICNT 0021 74 7123* 
SiLtue $i5s03 i aa 
intAag. 02138 Srate 712. 
& poe 166 57434 7109 
SLFLG 0133 7110@* 
SLPADR 196 oe 383 « 
SLPERR 00211 74 853 
SMADR1 $ % Hot 
SMADR 33 * srs 
eh 002170 ii 57434 
a 
SMAMSG O05 34 pis 
SMFLG oo eee 110#@* 
sone 015365 fee 
Sascap ae pie 
SMSGTY 36 5855 
SMSWR 54 1244 
SMTYP1 1 574 
SMTYP. 5 74 
Saves G02981 2 
T 1 
ny ge 7109 
SNWTST= 1 59174 40284 





MACY11 30(1046) 


7122 


7113 


7110 


5853 


7110 


6116@ 62414 


I 5 
15=DEC-82 15:26 PAGE 61-7 
CROSS REFERENCE TABLE -- USER SYMBOLS 


7156 


7123s 


7124 


6032* 


7109 


ee Oe Cie —<-- -— 


7157 


6130* 


7113 


63808 


7158 


6253* 


7123 


65148 


7159 


7113 


7123 


SEQ 0060 


-—-— --_—— - ——_- -— — — — 


J 5 
CNDRDA DRV11J , AG TST wie. MACY11 30(10466) 15=DEC-82 15:26 PAGE 61-8 


hananeee P11 10=DEC=82 14:4 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0061 
SOCNT 013564 71114 
| 013566 7111#* 
'SOVER 014604 ries 
ASS 002176 574 5853* 6690" 7123 
SPASTM 00 374 * 
0133 \2 a 
SPWRON 015376 5853s 71254 
013532 7125@ 
SPwRUP 01545 71254 
SQUES 902164 5743@ 7109 7113 #7124 
SRDCHR 0151 


7113 7123 7124 


5743 5853 5917 = 6028 6116 6241 6380 6514 6690 7113 


7123* 


6021 6028 6108 6116 6234 6241@ 63808 65148 


7118 7123 





ee eae ee - en 


‘  iomneamenin a ee ss - -_--+ -— 


MACY1* 30(1046) 15=DEC-82 15:26 bf 61-9 


“CNORDA DRVITJ ° AG_TST PRT2 
CNDRDA.P11 10=DEC=82 14:44 CROSS REFERENCE TABLE == USER SYMBOLS 
oY, 014354 OF + 0 

= 
SOF ILL O1396 1114 
S4OCAT= eeeeee YJ 711 71 S, ; 
. = 017304 3/3 e $7 57378 738 742@ 857434 5853 

12 71248 867125 1674 17 72644 

-SASTA= teeeee YJ 7110 
-$x = 002000 57424 


6690 


7109 


71108 


71124 


7113 


SEQ 0062 


71228 





CNDRDA DRVI1J 
CNDRDA.P11 
C N 15 
ENDCOM 157 
ERROR 569 
es 
6480 
6629 
ESCAPE 16984 
GETPRI 1312# 
GETSWR 17714 
MULT 44844 
NEWTST 16264 
POP 1534 
PUSH 1454 
REPORT 4634 
SCOPE 56934 
SETPRI 12798 
SETTRA At 4 
SETUP 13374 
SKIP 17334 
SLASH 15174 
SPACE 56934 
STARS 14854 
110, 
SWRSU 145 
TRMTRP 71284 
TYPBIN 
TYPDEC 584 
TYPNAM 74 
TYPNUM $06 & 
TYPOCS 9788 
TYPOCT 19414 
TYPTXT  1894# 
SSCMRE 57434 
SSCMTIM 8657434 
SSESCA 17114 
SSNEWT 16624 
SSSET 71284 
SSSETM 58534 
SSSKIP 1746# 
-EQUAT 1894 
-HEADE 14 
-INIT 74 
SETUP = 121 
- SWRHI 1044 
- SWRLO 92a 
-SACT 
»SAPTY 4 
~SASTA 174 
-SCATC 44 74 
-SCMTA 8610478 
- $0B2D 
-$DB20 4812" 
-SDIV 45874 


5 
2 MACY11 30(1046) 15=DEC=82 15:26 BaGe 62 


RT 

14:44 CROSS REFERENCE TABLE == MACRO NAMES 

5950 5958 2966 5975 5981 5987 = $993. 6000 »= «6007 = 6014 6057 6063 
$093 6101 615 6164 6174 6184 6190 619 6202 6209 6284 629. 
633 6340 6349 6409 642 0462 6436 8 = 6.44 6451 6456 6461 646 
649 0208 6543 6553 656 6576 0288 6595 6603 6608 6613 6618 
664 664 6656 6860 6870 687 6884 6932 86940 8 6951 


6241 6380 6514 


6108 6234 
737 7%4 5743 5917 02 116 241 380 514 6690 6695 97 
4h} 711 7114 7117 aH Fide $335 128 F362 7166 7169 172 
6690 
6934 
122 7124 


5917, 6028 = (6116 6241 6380 6514 


oct 6108 6234 


7109 

















CNDRDA DRVITJ ° AG TST mere. MACY11 30(1046) 15=DEC-82 15:26 Be 62-1 
CNDRDA.P11 10=DEC=82 1 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0064 


- SEOP 22148 6824 6 
RO aoe Seas 11 
SMUL 
- SPOWE P3334 56814 7125 
7a 


- $RDOC 7978 6804 
- SREAD 395#@ 5682" 7124 
AZ 9584 


-SSAVE 3 
. 47718 
-$S8 48744 
-SSCOP 24544 56824 7123 
-SSIZE 43614 

49134 
~STRAP 4073# S680# 7128 
-STYPB $Soen 
-STYPD 56824 7112 
-STYPE 56824 


- ABS. 017304 000 


ERRORS DETECTED: 0 


CNDRDA, we wt ee TOC=CNMAC2.SML,CNDRDA.P11 
RUN-TIME: 11 12 1 SECOND 
RUN-TIME RATIO: 56/25=2. 
CORE USED: 35K (66 PAGES) 


eee ee ee ee ene CC ne ee ee oe 


